view release on metacpan or  search on metacpan

lib/ODF/lpOD/Document.pm  view on Meta::CPAN

                                }
                        else
                                {
                                $v = check_odf_value($v, 'date');
                                }
                        }
                elsif ($object =~ /creator$/)
                        {
                        $v      =
                                $v =    (scalar getlogin())     ||
                                        (scalar getpwuid($<))   ||
                                        $<
                                unless $v;
                        }
                elsif ($object =~ /generator$/)
                        {
                        $v = $0 || $$   unless $v;
                        }
                elsif ($object =~ /cycles$/)
                        {
                        unless ($v)

lib/ODF/lpOD/Element.pm  view on Meta::CPAN

sub     set_author
        {
        my $self        = shift;
        my $elt = $self->set_child('dc:creator');
        return $elt->set_text
                (
                shift
                        //
                (scalar getlogin())
                        //
                (scalar getpwuid($<))
                        //
                $<
                );
        }

sub     get_author
        {
        my $self        = shift;
        my $elt = $self->first_child('dc:creator')      or return undef;
        return $elt->get_text;