view release on metacpan or  search on metacpan

lib/Document/TriPart/Cabinet/Document.pm  view on Meta::CPAN

#    return $self->{_created_datetime};
#}
#sub _build__modified_datetime {
#    my $self = shift;
#    $self->_extract_datetime;
#    return $self->{_modified_datetime};
#}
#sub _extract_datetime {
#    my $self = shift;
#    return unless my $datetime = $self->header->{datetime};
#    my ($created, $modified) = split m/\s*|\s*/, $datetime, 2;
#    $self->{_created_datetime} = $created;
#    $self->{_modified_datetime} = $modified;
#    
#}
#sub created_datetime {
#    my $self = shift;
#    return $self->_created_datetime unless @_;
#    $self->_set_datetime( shift, $self->modified_datetime );
#}
#sub modified_datetime {