File Coverage

blib/lib/Image/TextMode/Reader.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	6	8	75.0
condition	1	2	50.0
subroutine	4	4	100.0
pod	1	1	100.0
total	38	41	92.6

package Image::TextMode::Reader;

use Moo;

use Carp 'croak';

=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;
}

=head1 AUTHOR

Brian Cassidy [e-mail]

=head1 COPYRIGHT AND LICENSE

Copyright 2008-2015 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;