package FileRole;

use strict;
use warnings;
use Carp;
use Role::Basic;

sub readfile {
    my ($self,$args) = @_;
    
    my $file = $args->{file};
    
    if ( !$file || !-e $file ) {
        return 'filenotexists';
    }
    
    open my $fh, '<', $args->{file} or croak "can't open $file for readfile $!";
    my @lines = <$fh>;
    close $fh;
    
    return @lines;
}

1;