diff --git a/Build.PL b/Build.PL index 820296d..939b65d 100644 --- a/Build.PL +++ b/Build.PL @@ -8,7 +8,6 @@ my $builder = Module::Build->new( 'Module::Build' => '0.4004', }, test_requires => { - 'Moose::Util::TypeConstraints' => 0, 'Test::DescribeMe' => 0, 'Test::More' => '0.88', }, @@ -16,11 +15,8 @@ my $builder = Module::Build->new( 'autodie' => 0, 'indirect' => 'v0.30', 'Module::Runtime' => 0, - 'Moose' => 2, - 'MooseX::Method::Signatures' => 0, 'parent' => 0, 'perl' => '5.014', - 'perl5i::2' => 'v2.12', 'strictures' => 1, 'TryCatch' => 0, 'utf8' => 0, diff --git a/debian/control b/debian/control index 480c1be..20031d1 100644 --- a/debian/control +++ b/debian/control @@ -2,23 +2,21 @@ Source: libsipwise-base-perl Section: perl Priority: extra Maintainer: Sipwise Development Team -Build-Depends: debhelper (>= 8), - libindirect-perl (>= 0.30), - libmoosex-method-signatures-perl, - libperl5i-perl (>= 2.12), - libstrictures-perl, - libtrycatch-perl +Build-Depends: + debhelper (>= 8), + libindirect-perl (>= 0.30), + libstrictures-perl, + libtrycatch-perl, Standards-Version: 3.9.7 Homepage: http://sipwise.com/ Package: libsipwise-base-perl Architecture: all -Depends: libindirect-perl (>= 0.30), - libmoosex-method-signatures-perl, - libperl5i-perl (>= 2.12), - libstrictures-perl, - libtrycatch-perl, - ${misc:Depends}, - ${perl:Depends} +Depends: + libindirect-perl (>= 0.30), + libstrictures-perl, + libtrycatch-perl, + ${misc:Depends}, + ${perl:Depends}, Description: Perl module Sipwise::Base TODO diff --git a/lib/Sipwise/Base.pm b/lib/Sipwise/Base.pm index 7ed7cdd..620fedb 100644 --- a/lib/Sipwise/Base.pm +++ b/lib/Sipwise/Base.pm @@ -52,8 +52,8 @@ The purpose of this module is to reduce the amount of boilerplate code and to en available by default. This is in the spirit of L. -Switches on the functionality of the pragmatic modules L, L, L, -L, L. +Switches on the functionality of the pragmatic modules L, +L. =head1 INTERFACE @@ -63,9 +63,9 @@ See L. By passing an arrayref to C<-skip>, you can disable features: - use Sipwise::Base -skip => ['Moose']; # skip importing Moose + use Sipwise::Base -skip => ['TryCatch']; # skip importing TryCatch -The features strings are C, C, C, C. +The features strings are C. =head2 Exports diff --git a/t/MethodSignatures.pm b/t/MethodSignatures.pm deleted file mode 100644 index 3acaa74..0000000 --- a/t/MethodSignatures.pm +++ /dev/null @@ -1,7 +0,0 @@ -package MethodSignatures; -use Sipwise::Base; -use t::Types 'Place'; - -method greet(Place $who) { - return "Hello, $who!"; -} diff --git a/t/Types.pm b/t/Types.pm deleted file mode 100644 index 3165f27..0000000 --- a/t/Types.pm +++ /dev/null @@ -1,5 +0,0 @@ -package Types; -use Sipwise::Base; -use Moose::Util::TypeConstraints qw(subtype as where); - -subtype 'Place', as 'Str', where { /world/ }; diff --git a/t/exec.t b/t/exec.t deleted file mode 100644 index 79f7e9b..0000000 --- a/t/exec.t +++ /dev/null @@ -1,11 +0,0 @@ -use Sipwise::Base; -use Test::More import => [qw(done_testing ok)]; - -eval { - child { - exec $^X, '-e1'; - }; -}; -ok !$@; - -done_testing; diff --git a/t/exports.t b/t/exports.t index de3dc81..fbcf505 100644 --- a/t/exports.t +++ b/t/exports.t @@ -25,23 +25,9 @@ eval { }; ok !$@, 'switch syntax is available'; -ok(__PACKAGE__->can($_), "$_ function name is available") - for qw(after augment before extends has inner override super with method list); - -eval 'use t::MethodSignatures'; -try { - MethodSignatures->new->greet(123); -} catch($e) { - ok $e =~ /^Validation failed/; -} - -ok MethodSignatures->new->greet('world') eq 'Hello, world!', 'method signatures'; - eval { unlink '/tmp/doesnotexist' }; ok $@, 'autodie is in effect'; -ok 2->pow(8), 'autobox is in effect'; - try { die bless { fnord => 42 } => 'Foobar'; } catch (Foobar $e) { diff --git a/t/skip.t b/t/skip.t index 8c0efad..a9bd3b4 100644 --- a/t/skip.t +++ b/t/skip.t @@ -1,7 +1,7 @@ -use Sipwise::Base -skip => ['Moose']; +use Sipwise::Base -skip => ['TryCatch']; use Test::More import => [qw(done_testing ok)]; -ok(!__PACKAGE__->can($_), "Moose $_ function name is not available") - for qw(after augment before extends has inner override super with); +ok(!__PACKAGE__->can($_), "TryCatch $_ function name is not available") + for qw(try catch); done_testing;