File Coverage

blib/lib/Email/Send/IO.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	4	8	50.0
condition			n/a
subroutine	7	7	100.0
pod	0	2	0.0
total	38	44	86.3

package Email::Send::IO;
use strict;

BEGIN {
  local $Return::Value::NO_CLUCK = 1;
  require Return::Value;
  Return::Value->import;
}

use vars qw[$VERSION];
$VERSION = '2.201';

use vars qw[@IO];
@IO = ('=') unless @IO;

sub is_available {
    return   eval { require IO::All }
           ? success
           : failure "is_available: Loading IO::All failed: $@";
}

sub send {
    my ($class, $message, @args) = @_;
    eval { no warnings 'redefine'; require IO::All; IO::All->import };
    return failure "send: Loading IO::All failed: $@" if $@;
    @args = (@IO) unless @args;
    eval { io(@args)->append($message->as_string) };
    return failure $@ if $@;
    return success;
}

1;

__END__