view release on metacpan or  search on metacpan

lib/Bio/VertRes/Config/CommandLine/LogParameters.pm  view on Meta::CPAN

    my ($self) = @_;

    # Build the variable just after object construction because the array ref gets modified by GetOpts
    $self->_output_string;
}


sub _build__user_name
{
  my ($self) = @_;
  getpwuid( $< );
}

sub _build__output_string {
    my ($self) = @_;
    my $output_str = time()." ";
    
    if ( defined( $self->_user_name))
    {
       $output_str .= $self->_user_name . " ";
    }