File Coverage

blib/lib/Test/Sweet/Meta/Method.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch			n/a
condition			n/a
subroutine	11	11	100.0
pod			n/a
total	36	36	100.0

use MooseX::Declare;

role Test::Sweet::Meta::Method {
    use Sub::Name;
    use Test::Builder;
    use Context::Preserve qw(preserve_context);

    has 'original_body' => (
        is       => 'ro',
        isa      => 'CodeRef',
        required => 1,
    );

    requires 'wrap';
    requires 'body';

    around wrap($class: $code, %params) {
        my $self = $class->$orig($params{original_body}, %params);
        return $self;
    }

    around body {
        return (subname "<Test::Sweet test wrapper>", sub {
            my @args = @_;
            my $context = wantarray;
            my ($result, @result);

            my $b = Test::Builder->new; # TODO: let this be passed in
            $b->subtest(
                $self->name =>
                      subname "<Test::Sweet subtest>", sub {
                          if($context){
                              @result = $self->$orig->(@args);
                          }
                          elsif(defined $context){
                              $result = $self->$orig->(@args);
                          }
                          else {
                              $self->$orig->(@args);
                          }
                          $b->done_testing;
                      },
            );
            return @result if $context;
            return $result if defined $context;
            return;
        });
    }
}

__END__

=head1 NAME

Test::Sweet::Meta::Method - metamethod trait for running method as tests