File Coverage

blib/lib/Test/Class/MethodInfo.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	8	8	100.0
condition	2	2	100.0
subroutine	10	10	100.0
pod	7	7	100.0
total	55	55	100.0

use strict;
use warnings;

package Test::Class::MethodInfo;
use Carp;

our $VERSION = '0.50';

sub new {
    my ( $class, %param ) = @_;
	my $self = bless {
	    name => $param{ name },
	    type => $param{ type } || 'test',
	}, $class;
	unless ( defined $param{num_tests} ) {
    	$param{ num_tests } = $self->is_type('test') ? 1 : 0;
    };
	$self->num_tests( $param{num_tests} );
	return $self;
};

sub name { shift->{name} };

sub type { shift->{type} };

sub num_tests	{
	my ( $self, $n ) = @_;
	if ( defined $n ) {
		croak "$n not valid number of tests"
		    unless $self->is_num_tests($n);
		$self->{ num_tests } = $n;
	};
	return $self->{ num_tests };
};

sub is_type {
	my ( $self, $type ) = @_;
    return $self->{ type } eq $type;
};

sub is_method_type {
	my ( $self, $type ) = @_;
	return $type =~ m/^(startup|setup|test|teardown|shutdown)$/s;
};

sub is_num_tests {
	my ( $self, $num_tests ) = @_;
	return $num_tests =~ m/^(no_plan)|(\+?\d+)$/s;
};

1;
__END__