File Coverage

blib/lib/Test/CompanionClasses/Base.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	1	2	50.0
condition			n/a
subroutine	11	11	100.0
pod	3	3	100.0
total	46	47	97.8

use 5.008;
use strict;
use warnings;

package Test::CompanionClasses::Base;
BEGIN {
  $Test::CompanionClasses::Base::VERSION = '1.101370';
}
# ABSTRACT: Base class for test companion classes
use Test::More;
use UNIVERSAL::require;
use parent qw(
  Class::Accessor::Complex
  Data::Inherited
);
__PACKAGE__
    ->mk_new
    ->mk_scalar_accessors(qw(package));
use constant PLAN => 0;    # default

sub make_real_object {
    my ($self, @args) = @_;
    $self->package->require;
    die $@ if $@;
    $self->package->new(@args);
}
sub run { }

# this can be called as a class method as well
sub planned_test_count {
    my $self = shift;
    my $plan = 0;
    $plan += $_ for $self->every_list('PLAN');
    $plan;
}
1;


__END__