Changeset 66 in bookmarks for trunk/Bookmark.pm
- Timestamp:
- 02/04/14 15:21:17 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Bookmark.pm
r46 r66 2 2 3 3 use Moose; 4 use HTTP::Date qw{time2isoz}; 4 5 5 6 has id => ( is => 'ro' ); … … 15 16 has tags => ( is => 'rw' ); 16 17 has bookmark_uri => ( is => 'rw' ); 18 has exists => ( is => 'ro' ); 19 20 sub created { scalar localtime $_[0]->ctime } 21 sub updated { scalar localtime $_[0]->mtime } 22 sub created_iso { (my $iso = time2isoz($_[0]->ctime)) =~ s/\D//g; return $iso; } 23 sub updated_iso { (my $iso = time2isoz($_[0]->ctime)) =~ s/\D//g; return $iso; } 17 24 18 25 sub BUILD {
Note: See TracChangeset
for help on using the changeset viewer.