view release on metacpan or  search on metacpan

lib/Perl/Core.pm  view on Meta::CPAN

use Sub::Infix              ();

use constant DEFAULT_VERSION => ':5.14';

sub import
{
    my ($class, $version) = @_;
    my $caller = scalar caller();
 
    warnings->import;
    strict->import;
    feature->import( $version ? ":$version" : DEFAULT_VERSION );
    mro::set_mro($caller, 'c3');

    PerlX::Define->import;
    Syntax::Feature::Try->install;
    no strict 'refs';
    *{$caller . '::maybe'} = \&PerlX::Maybe::maybe;
    *{$caller . '::provided'} = \&PerlX::Maybe::provided;
    *{$caller . '::in'} = Sub::Infix::infix { match::simple::match @_ };
}