File Coverage

blib/lib/Sendmail/Queue/Base.pm

Criterion	Covered	Total	%
statement	22	23	95.6
branch	3	6	50.0
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	32	36	88.8

package Sendmail::Queue::Base;
use Carp qw(croak);

sub make_accessors
{
	my ($class, @instance_vars) = @_;

	no strict 'refs';
	foreach my $name ( @instance_vars ) {
		# Create setter
		if( ! defined &{"${class}::set_$name"} ) {
			*{"${class}::set_$name"} = sub {
				$_[0]->{$name} = $_[1];
			};
		}

		# Create getter
		if( ! defined &{"${class}::get_$name"} ) {
			*{"${class}::get_$name"} = sub {
				if( @_ > 1 ) {
					croak "Cannot call get_$name with an argument";
				}
				return $_[0]->{$name};
			};
		}
	}
	use strict 'refs';
}

1;
__END__