diff options
Diffstat (limited to 'lib/Bookmarks/M/DB/Links.pm')
-rw-r--r-- | lib/Bookmarks/M/DB/Links.pm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lib/Bookmarks/M/DB/Links.pm b/lib/Bookmarks/M/DB/Links.pm index 7b8928f..851d9a3 100644 --- a/lib/Bookmarks/M/DB/Links.pm +++ b/lib/Bookmarks/M/DB/Links.pm @@ -2,6 +2,15 @@ package Bookmarks::M::DB::Links; use strict; +for my $col_name (qw(add_date last_access_date)) { + __PACKAGE__->has_a( $col_name => 'DateTime', + inflate => sub { DateTime->from_epoch( epoch => $_ ) }, + deflate => 'epoch', + ); +} + +__PACKAGE__->has_many( tags => [Bookmarks::M::DB::LinkTags => 'tag'] ); + =head1 NAME Bookmarks::M::DB::Links - CDBI Model Component Table Class |