MT#16465 Remove perl5i and Moose.

Change-Id: Idf64434ee14d6dc528042a3d517316674e2f6e00
changes/96/3396/1
Andreas Granig 10 years ago
parent 561f3b1fdf
commit 696ed5b508

@ -1,15 +1,11 @@
package Sipwise::Base 1.005;
use 5.014;
use utf8;
use Module::Runtime qw(use_module);
use parent 'autodie';
sub import {
my ($class, %param) = @_;
my %features = (
perl5i => q(use perl5i::2 -skip => [qw(Signatures Try::Tiny autodie)];),
Moose => q(use Moose qw(after augment before extends has inner override super with);),
'MooseX::Method::Signatures' => q(use MooseX::Method::Signatures;),
TryCatch => q(use TryCatch;),
);
@ -21,9 +17,6 @@ sub import {
my $caller = caller;
use_module('strictures')->import(1);
my @skip = qw(Signatures Try::Tiny autodie);
push @skip, 'CLASS' if __PACKAGE__->can('CLASS');
use_module('perl5i::2')->import(-skip => [@skip]);
my $export = "package $caller;\n";
for my $f (sort keys %features) {

Loading…
Cancel
Save