use strict;
use warnings;
use base 'Exporter';
+use Carp;
BEGIN {
our %dependencies = (
# VVVVV CODE TAKEN FROM TEST::EXCEPTION VVVVV
'Test::Exception' => do {
- my $Tester = Test::Builder->new;
+ my $Tester;
my $is_exception = sub {
my $exception = shift;
unless defined $description;
my $exception = $try_as_caller->($coderef);
+ $Tester ||= Test::Builder->new;
+
my $regex = $Tester->maybe_regex( $expecting );
my $ok = $regex
? ( $exception =~ m/$regex/ )
'lives_ok' => sub (&;$) {
my ( $coderef, $description ) = @_;
my $exception = $try_as_caller->( $coderef );
+
+ $Tester ||= Test::Builder->new;
+
my $ok = $Tester->ok( ! $is_exception->( $exception ), $description );
$Tester->diag( $exception_as_string->( "died:", $exception ) ) unless $ok;
$@ = $exception;
}
}
+sub apply_all_roles {
+ my $meta = Mouse::Meta::Class->initialize(shift);
+ my $role = shift;
+ confess "Mouse::Util only supports 'apply_all_roles' on individual roles at a time" if @_;
+
+ Mouse::load_class($role);
+ $role->meta->apply($meta);
+}
+
1;
__END__