File Coverage

blib/lib/Test/More/Behaviour.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch	4	8	50.0
condition			n/a
subroutine	9	9	100.0
pod	3	3	100.0
total	51	55	92.7

package Test::More::Behaviour;

use strict;
use warnings;

use base 'Test::More';
use Test::More;
use Test::More::Behaviour::Helper qw(evaluate_and_print_subtest spec_description context_description);

use version; our $VERSION = qv('1.0.1');

our @EXPORT = ( @Test::More::EXPORT, qw(describe context it) );

sub describe {
  spec_description(shift);
  my $block      = shift;

  caller->before_all if caller->can('before_all');
  $block->();
  caller->after_all if caller->can('after_all');

  spec_description(undef);

  return;
}

sub context {
  context_description(shift);
  my $block         = shift;

  $block->();
  context_description(undef);

  return;
}

sub it {
  my ($description, $block) = @_;

  caller->before_each if caller->can('before_each');
  evaluate_and_print_subtest($description, $block);
  caller->after_each if caller->can('after_each');

  return;
}

1;

__END__