File Coverage

blib/lib/Net/Amazon/MechanicalTurk/IOUtil.pm

Criterion	Covered	Total	%
statement	12	33	36.3
branch	0	8	0.0
condition			n/a
subroutine	4	6	66.6
pod	0	2	0.0
total	16	49	32.6

package Net::Amazon::MechanicalTurk::IOUtil;
use strict;
use warnings;
use IO::File;
use Carp;

our $VERSION = '1.00';

sub readContents {
    my ($class, $io) = @_;
    my $text = '';
    if (UNIVERSAL::isa($io, "GLOB")) {
        while (my $line = <$io>) {
            $text .= $line;
        }
    }
    else {
        my $in = IO::File->new($io, "r");
        if (!$in) {
            Carp::croak("Couldn't open $io - $!");
        }
        while (my $line = <$in>) {
            $text .= $line;
        }
        $in->close;
    }
    return $text;
}

sub writeContents {
    my ($class, $io, $content) = @_;
    my $text = '';
    if (UNIVERSAL::isa($io, "GLOB")) {
        print $io $content;
    }
    else {
        my $out = IO::File->new($io, "w");
        if (!$out) {
            Carp::croak("Couldn't open $io - $!");
        }
        print $out $content;
        $out->close;
    }
}

return 1;