File Coverage

blib/lib/Syntax/Keyword/Junction.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	4	4	100.0
total	24	24	100.0

package Syntax::Keyword::Junction;

use strict;
use warnings;

our $VERSION = '0.003008'; # VERSION

# ABSTRACT: Perl6 style Junction operators in Perl5

require Syntax::Keyword::Junction::All;
require Syntax::Keyword::Junction::Any;
require Syntax::Keyword::Junction::None;
require Syntax::Keyword::Junction::One;

use Sub::Exporter::Progressive -setup => {
   exports => [qw( all any none one )],
   groups => {
      default => [qw( all any none one )],
      # for the switch from Exporter
      ALL     => [qw( all any none one )],
   },
};

sub all  { Syntax::Keyword::Junction::All->new(@_)  }
sub any  { Syntax::Keyword::Junction::Any->new(@_)  }
sub none { Syntax::Keyword::Junction::None->new(@_) }
sub one  { Syntax::Keyword::Junction::One->new(@_)  }

1;

__END__