I'm not sure it is such a good idea to use Moose (or any other object system) for this task, but nothing tried, nothing gained!

In FileReader.pm

package FileReader;
use Moose;
use Moose::Util::TypeConstraints;
use IO::File;

subtype 'FileHandleFromStr', as 'FileHandle';

coerce 'FileHandleFromStr', from 'Str', via { IO::File->new("< $_") };

has file => (
    is     => 'ro',
    isa    => 'FileHandleFromStr',
    coerce => 1,
);

sub read_next_line {
    my $self = shift;
    return $self->file->getline;
}

1
[download]

In your script:

use Modern::Perl qw/2014/;
use lib 'C:/Data/strawberry/script-chrome';
use FileReader;
use Data::Dump qw /dump/;

my $file =
  FileReader->new( file => 'C:/Data/strawberry/script-chrome/test.txt'
+ );
while ( my $line = $file->read_next_line ) {
    print $line;
}
[download]

Moose will take care of opening the file and attaching the filehandle to your object. You then call the method read_next_line on this object to ... read the next line.