File Coverage

blib/lib/Bored.pm

Criterion	Covered	Total	%
statement	10	16	62.5
branch			n/a
condition			n/a
subroutine	7	13	53.8
pod	0	11	0.0
total	17	40	42.5

package Bored;

use 5.008003;

our $VERSION = '0.07';

use base 'Import::Export';

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

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

sub topdown {
	return 'bottom up';
}

sub bored_one {
	return 1;
}

sub seclusion {
	return 'bondage';
}

sub pointless {
	return 'leadership';
}

sub waiting {
	return 'patiently';
}

sub tortured {
	return 'souls';
}

sub walking {
	return 'further';
}

sub evil {
	return 'patience';
}

sub freemasons {
	return 'hidden';
}

sub namedays {
	return 'already lost, boring';
}

1;

__END__