File Coverage

blib/lib/Bored.pm

Criterion	Covered	Total	%
statement	10	11	90.9
branch			n/a
condition			n/a
subroutine	7	8	87.5
pod	0	6	0.0
total	17	25	68.0

package Bored;

use 5.008003;

our $VERSION = '0.05';

use base 'Import::Export';

our %EX = (
	bored_one => [qw/all/]
);

sub new {
	bless {}, $_[0];
}

sub bored_one {
	return 1;
}

sub pointless {
	return 'leadership';
}

sub tortured {
	return 'souls';
}

sub waiting {
	return 'patiently';
}

sub topdown {
	return 'bottom up';
}

1;

__END__