File Coverage

blib/lib/IO/All/File.pm

Criterion	Covered	Total	%
statement	23	25	92.0
branch	4	4	100.0
condition	2	3	66.6
subroutine	6	7	85.7
pod	0	5	0.0
total	35	44	79.5

package IO::All::File;
use IO::All::Base;
extends 'IO::All::Filesys';

option 'utf8';

has handle => ();

# Upgrade from IO::All to IO::All::Dir
use constant upgrade_methods => [qw(file print)];

sub can_upgrade {
    my ($self, $object) = @_;
    my $location = $object->location;
    return if
        not defined $location or
        not length $location;
    -f $location;
}

#
# Worker Methods:
#

sub file {
    my $self = shift;
    $self->name(shift) if @_;
    return $self;
}

sub open {
    my $self = shift;
    my $fh;
    open $fh, '<', $self->name;
    $self->handle($fh);
    return $self;
}

sub all {
    my $self = shift;
    my $fh = $self->open->handle;
    return do { local $/; <$fh> }
}

sub print {
    my $self = shift;
    CORE::print(@_);
}

1;