File Coverage

blib/lib/Text/APL.pm

Criterion	Covered	Total	%
statement	21	26	80.7
branch	4	6	66.6
condition	2	5	40.0
subroutine	6	6	100.0
pod	1	1	100.0
total	34	44	77.2

package Text::APL;

use strict;
use warnings;

our $VERSION = 0.09;

use Text::APL::Core;
use Text::APL::WithCaching;

sub new {
    my $class = shift;
    my (%options) = @_;

    $options{charset} ||= 'UTF-8';

    $options{reader} ||= $class->_build_reader(charset => $options{charset});

    if (delete $options{cache}) {
        return Text::APL::WithCaching->new(%options);
    }

    return Text::APL::Core->new(%options);
}

sub _build_reader {
    my $self = shift;

    exists $INC{"AnyEvent.pm"}
      ? do {
        require AnyEvent::AIO;
        require Text::APL::Reader::AIO;
        Text::APL::Reader::AIO->new(@_);
      }
      : exists $INC{"IO/AIO.pm"}
      ? do { require Text::APL::Reader::AIO; Text::APL::Reader->AIO->new(@_) }
      : Text::APL::Reader->new(@_);
}

1;
__END__