view release on metacpan or  search on metacpan

lib/Eirotic.pm  view on Meta::CPAN

I make changes.
 
=head1 SUPPORT
 
You can find documentation for this module with the perldoc command.
 
    perldoc Eirotic
 
You can also look for information at:
 
=over 4
 
=item * RT: CPAN's request tracker
 
L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Eirotic>
 
=item * AnnoCPAN: Annotated CPAN documentation
 
L<http://annocpan.org/dist/Eirotic>
 
=item * CPAN Ratings
 
L<http://cpanratings.perl.org/d/Eirotic>
 
=item * CPAN
 
L<https://metacpan.org/release/eirotic>
 
=back
 
=head1 COPYRIGHT
 
Copyright 2013-2015 Marc Chantreux (eiro). 

=head1 LICENSE
 
This program is free software; you can redistribute it and/or modify it
under the terms of either: the GNU General Public License as published
by the Free Software Foundation; or the Artistic License.
 
See L<http://dev.perl.org/licenses/> for more information.

=cut

use strict ();
use warnings ();
use feature ();
use autodie ();
require Perlude;
require YAML;
use curry;
require Path::Tiny;
require Import::Into;

sub import {

    my ( $what ) = pop;
    my ( $caller ) = caller; 

    feature->import(':5.20');          # use 5.20.0;
    strict->import;                    # use strict;
    warnings->import;  # use warnings qw( FATAL all );
    # warnings->import(qw( FATAL all )); # use warnings qw( FATAL all );

    #use experimental 'signatures';

    feature->import('signatures');
    warnings->unimport("experimental::signatures"); 

    use Perlude;
    use Path::Tiny;
    
    #return unless $what eq "-full";
    Perlude->import::into($caller);
    Path::Tiny->import::into($caller); 

}

1;