view release on metacpan or  search on metacpan

DynaGlue.pm  view on Meta::CPAN

    $self->path_h($self->{PATH_H}, $self->{DO_SCAN})
	if $self->{PATH_H};
    $self->name($self->{NAME} || $self->{PATH_H});
    $self->module($self->name);
    $self->modparts($self->name);
    $self;
}

sub _author {
    my $name = (getpwuid($>))[6] || $ENV{NAME} || "A. U. Thor";
    $name =~ s/,.*//;
    while($name =~ s/\([^\(]*\)//) { 1; } 
    $name;
}

{
    no strict;
    eval { use Mail::Util qw(mailaddress); };
    *mailaddress = sub {'a.u.thor@a.galaxy.far.far.away'} if $@;
}