root/lang/perl/Aspect/trunk/t/lib/Test/Class/MethodInfo.pm @ 9731

#! /usr/bin/perl -Tw

package Test::Class::MethodInfo;
use 5.006;
use strict;
use warnings;
use Carp;

our $VERSION = '0.01';

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);
};

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 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) = @_;
    $self->{type} eq $type;
};


1;