view release on metacpan or  search on metacpan

bin/asterisk-lcr-myroutes  view on Meta::CPAN

    
    # make it nice why don't you
    if ($res =~ /\.\d$/) { $res .= 0 }
    return $res;
}


sub new
{
    my $class = shift;
    my $self  = bless { @_ } => $class;
    my $file  = $self->{file};
    
    open FP, "<$file" or die "Cannot read open $file";
    $self->{lines} = [ map { chomp(); $_ } <FP> ];
    close FP;
    
    return $self; 
}