view release on metacpan or  search on metacpan

lib/Gedcom.pm  view on Meta::CPAN

        callback => $self->{callback},
    );

    unless (defined $self->{gedcom_file}) {

    # Add the required elements, unless they are already there.

        unless ($r->get_record("head")) {
            my $me = "Unknown user";
            my $login = $me;
            if ($login = getlogin || (getpwuid($<))[0] ||
                         $ENV{USER} || $ENV{LOGIN}) {
                my $name;
                eval { $name = (getpwnam($login))[6] };
                $me = $name || $login;
            }
            my $date = localtime;

            my ($l0, $l1, $l2, $l3);
            $l0 = $self->add_header;
                $l1 = $l0->add("SOUR", "Gedcom.pm");

parse_grammar  view on Meta::CPAN

        file     => $grammar_file,
        version  => $version,
        callback => sub { print "." }
    );

    delete $grammar->{callback};
    delete $grammar->{stored_record};

    my $me = "Unknown user";
    my $login = $me;
    if ($login = getlogin || (getpwuid($<))[0] || $ENV{USER} || $ENV{LOGIN}) {
        my $name;
        eval { $name = (getpwnam($login))[6] };
        $me = $name || $login;
    }
    my $date = localtime;

    (my $v = $version) =~ tr/./_/;
    my $g   = "Grammar_$v";
    my $gpm = "lib/Gedcom/$g.pm";
    print "\nwriting $gpm ...\n";