package FileExporter;

use strict;
use warnings;
use Carp;
use base 'Exporter';

our @EXPORT = qw(readfile);

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;

package TestExporter;

use strict;
use warnings;

eval "use FileExporter";

sub new {
    my ($class) = @_;
    
    my $self = bless {}, $class;
    return $self;
}

1;

#!/usr/bin/perl

use strict;
use warnings;
use lib qw(lib);

use TestExporter;

my $obj = TestExporter->new;

if ( $obj->can( 'readfile' ) ) {
    my @lines = $obj->readfile({ file => $0 });

    print @lines;
}