File Coverage

blib/lib/autobox/Junctions.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch			n/a
condition			n/a
subroutine	11	11	100.0
pod			n/a
total	39	39	100.0

#
# This file is part of autobox-Junctions
#
# This software is Copyright (c) 2013 by Chris Weyl.
#
# This is free software, licensed under:
#
#   The GNU Lesser General Public License, Version 2.1, February 1999
#
package autobox::Junctions;
our $AUTHORITY = 'cpan:RSRCHBOY';
# git description: 0.001-6-gcbe3e58
$autobox::Junctions::VERSION = '0.002';

# ABSTRACT: Autoboxified junction-style operators

use strict;
use warnings;

use parent 'autobox';

sub import {
    my $class = shift @_;

    $class->SUPER::import(
        ARRAY => 'autobox::Junctions::ARRAY',
        @_,
    );
}

{
    package autobox::Junctions::ARRAY;
our $AUTHORITY = 'cpan:RSRCHBOY';
# git description: 0.001-6-gcbe3e58
$autobox::Junctions::ARRAY::VERSION = '0.002';

    use strict;
    use warnings;

    use Syntax::Keyword::Junction ();

    sub all  { Syntax::Keyword::Junction::all( @{ $_[0] }) }
    sub any  { Syntax::Keyword::Junction::any( @{ $_[0] }) }
    sub none { Syntax::Keyword::Junction::none(@{ $_[0] }) }
    sub one  { Syntax::Keyword::Junction::one( @{ $_[0] }) }
}

!!42;

__END__