view release on metacpan or  search on metacpan

lib/Range/Merge/Boilerplate.pm  view on Meta::CPAN

#
# Copyright (C) 2015-2019 Joelle Maslak
# All Rights Reserved - See License
#

package Range::Merge::Boilerplate;
# ABSTRACT: Generic Boilerplate (copied from JTM::Bootstrap)
$Range::Merge::Boilerplate::VERSION = '2.253531';

use v5.22;
use strict;
use warnings;

use feature 'signatures';
no warnings 'experimental::signatures';

use English;
use Import::Into;
use Smart::Comments;

sub import($self, $type='script') {
    ### assert: ($type =~ m/^(?:class|role|script)$/ms)

    my $target = caller;

    strict->import::into($target);
    warnings->import::into($target);
    autodie->import::into($target);

    feature->import::into($target, ':5.22');

    utf8->import::into($target); # Allow UTF-8 Source

    if ($type eq 'class') {
        Moose->import::into($target);
        Moose::Util::TypeConstraints->import::into($target);
        MooseX::StrictConstructor->import::into($target);
        namespace::autoclean->import::into($target);
    } elsif ($type eq 'role') {
        Moose::Role->import::into($target);
        Moose::Util::TypeConstraints->import::into($target);
        MooseX::StrictConstructor->import::into($target);
        namespace::autoclean->import::into($target);
    }

    Carp->import::into($target);
    English->import::into($target);
    Smart::Comments->import::into($target, '-ENV', '###');

    feature->import::into($target, 'postderef');    # Not needed if feature budle >= 5.23.1

    # We haven't been using this
    # feature->import::into($target, 'refaliasing');
    feature->import::into($target, 'signatures');

    feature->import::into($target, 'unicode_strings');
    # warnings->unimport::out_of($target, 'experimental::refaliasing');
    warnings->unimport::out_of($target, 'experimental::signatures');

    if ($PERL_VERSION lt v5.24.0) {
        warnings->unimport::out_of($target, 'experimental::postderef');
    }

    return;
}

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Range::Merge::Boilerplate - Generic Boilerplate (copied from JTM::Bootstrap)

=head1 VERSION

version 2.253531

=head1 SYNOPSIS

  use Range::Merge::Boilerplate 'script';