Changeset 91 in bookmarks for trunk

Timestamp:

06/05/15 19:32:33 (10 years ago)

Author:

peter

Message:

change TO_JSON() method name to to_hashref() to emphasize its multiple uses

Location:

trunk

Files:

• bkmk (modified) (5 diffs)
• lib/Bookmark.pm (modified) (1 diff)
• lib/Bookmarks/Controller.pm (modified) (1 diff)
• lib/Bookmarks/List.pm (modified) (1 diff)

trunk/bkmk

@@ -34 +34 @@
         my $identifier = shift;
         my $bookmark = find_bookmark($identifier);
-        print $bookmark ? Dump($bookmark->TO_JSON) : "Not Found\n";
+        print $bookmark ? Dump($bookmark->to_hashref) : "Not Found\n";
     },
     
@@ -41 +41 @@
         my $title = defined $TITLE ? $TITLE : fetch_title($uri);
         my $bookmark = $bookmarks->add({ uri => $uri, title => $title, tags => \@tags });
-        print Dump($bookmark->TO_JSON);
+        print Dump($bookmark->to_hashref);
     },
 
@@ -51 +51 @@
         # TODO: list by tags, date, etc.
         # TODO: coordinate this commandline script with the CGI app
-        print Dump([ map { $_->TO_JSON } @{ $resources->results } ]);
+        print Dump([ map { $_->to_hashref } @{ $resources->results } ]);
     },
 
@@ -60 +60 @@
             $bookmark->tags(\@tags);
             $bookmarks->update($bookmark);
-            print Dump($bookmark->TO_JSON);
+            print Dump($bookmark->to_hashref);
         } else {
             die "Not found\n";
@@ -77 +77 @@
     dump => sub {
         my ($dump_file) = @_;
-        my $dump = [ map { $_->TO_JSON } @{ $bookmarks->search->results } ];
+        my $dump = [ map { $_->to_hashref } @{ $bookmarks->search->results } ];
         $dump_file ? YAML::DumpFile($dump_file, $dump) : print Dump($dump);
     },

trunk/lib/Bookmark.pm

@@ -32 +32 @@
 }
 
-sub TO_JSON {
+sub to_hashref {
     my $self = shift;
     return {

trunk/lib/Bookmarks/Controller.pm

@@ -143 +143 @@
         
         if ($format eq 'json') {
-            my $json = decode_utf8(JSON->new->utf8->convert_blessed->encode($bookmark));
+            my $json = decode_utf8(JSON->new->utf8->convert_blessed->encode($bookmark->to_hashref));
             return [200, ['Content-Type' => 'application/json; charset=UTF-8', 'Last-Modified' => $last_modified], [$json]];
         } else {

trunk/lib/Bookmarks/List.pm

@@ -97 +97 @@
     my $json = decode_utf8(
         JSON->new->utf8->convert_blessed->encode({
-            bookmarks => $self->results,
+            bookmarks => [ map { $_->to_hashref } @{ $self->results } ],
         })
     );