X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FTest%2FMooseX%2FDaemonize.pm;h=dbccc4479176c6c82df022040939635d3f9f4c9b;hb=d5a304d98a6c9092181f55e00551591aeba03406;hp=30794aad2c59126eb32b1dc9f28804c0bf8b93dd;hpb=25a727cc1b7fc1dcbf22894fefb23ea88ec2799d;p=gitmo%2FMooseX-Daemonize.git diff --git a/lib/Test/MooseX/Daemonize.pm b/lib/Test/MooseX/Daemonize.pm index 30794aa..dbccc44 100644 --- a/lib/Test/MooseX/Daemonize.pm +++ b/lib/Test/MooseX/Daemonize.pm @@ -1,27 +1,16 @@ -package Test::MooseX::Daemonize; use strict; - -our $VERSION = '0.16'; -our $AUTHORITY = 'cpan:PERIGRIN'; +use warnings; +package Test::MooseX::Daemonize; # BEGIN CARGO CULTING -use Sub::Exporter; -use Test::Builder; - - -{ - my @exports = qw[ - daemonize_ok - check_test_output - ]; +use Sub::Exporter::ForMethods 'method_installer'; +use Sub::Exporter -setup => { + exports => [ qw(daemonize_ok check_test_output) ], + groups => { default => [ qw(daemonize_ok check_test_output) ] }, + installer => method_installer, +}; - Sub::Exporter::setup_exporter( - { - exports => \@exports, - groups => { default => \@exports } - } - ); -} +use Test::Builder; our $Test = Test::Builder->new; @@ -67,6 +56,7 @@ sub check_test_output { } package Test::MooseX::Daemonize::Testable; + use Moose::Role; has test_output => (