Changeset 86 in bookmarks for trunk/bkmk

Timestamp:

06/04/15 01:01:39 (10 years ago)

Author:

peter

Message:

issue #9: allow bkmk init to specifiy a YAML file to load after creating the database

File:

• trunk/bkmk (modified) (3 diffs)

trunk/bkmk

@@ -26 +26 @@
 my %action_for = (
     init => sub {
+        my $src_file = shift;
         $bookmarks->create_tables;
+        load_bookmarks($src_file) if $src_file;
     },
     
@@ -69 +71 @@
     load => sub {
         my ($src_file) = @_;
-        my $src_bookmarks = YAML::LoadFile($src_file);
-        for my $bookmark (@{ $src_bookmarks }) {
-            $bookmarks->add($bookmark);
-        }
+        load_bookmarks($src_file);
     },
 );
@@ -91 +90 @@
     return $mech->title || $uri;
 }
+
+sub load_bookmarks {
+    my $src_file = shift;
+    my $src_bookmarks = YAML::LoadFile($src_file);
+    for my $bookmark (@{ $src_bookmarks }) {
+        $bookmarks->add($bookmark);
+    }
+}