—
—

              
package Image::TextMode::Reader;
use Moo;
use Carp 'croak';
HideShow 21 lines of Pod
=head1 NAME
Image::TextMode::Reader - A base class for file readers
=head1 DESCRIPTION
This module provides some of the basic functionality for all reader classes.
=head1 METHODS
=head2 new( %args )
Creates a new instance.
=head2 read( $image, $file, \%options )
Reads the contents of C<$file> into C<$image> via the subclass's C<_read()>
method.
=cut
sub read {    ## no critic (Subroutines::ProhibitBuiltinHomonyms)
    my ( $self, $image, $fh, $options ) = @_;
    $options ||= {};
    $fh = _get_fh( $fh );
    $image->sauce->read( $fh );
    seek( $fh, 0, 2 );
    $options->{ filesize } = tell $fh;
    seek( $fh, 0, 0 );
    if( $image->has_sauce ) {
        if ( !$options->{ width } ) {
            $options->{ width } = $image->sauce->tinfo1;
        }
        $options->{ filesize } -= $image->sauce->record_size;
    }
    seek( $fh, 0, 0 );
    $self->_read( $image, $fh, $options );
}
sub _get_fh {
    my ( $file ) = @_;
    my $fh = $file;
    if ( !ref $fh ) {
        undef $fh;
        open $fh, '<', $file    ## no critic (InputOutput::RequireBriefOpen)
            or croak "Unable to open '$file': $!";
    }
    binmode( $fh );
    return $fh;
}
HideShow 13 lines of Pod
=head1 AUTHOR
Brian Cassidy E<lt>bricas@cpan.orgE<gt>
=head1 COPYRIGHT AND LICENSE
Copyright 2008-2022 by Brian Cassidy
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself. 
=cut
1;