Branch Coverage

blib/lib/MARC/Leader.pm

Criterion	Covered	Total	%
branch	10	10	100.0

line	true	false	branch
37	1	6	if (length $leader != 24)
45	1	5	if ($self->{'verbose'})
77	2	1	unless (builtin::blessed($leader_obj) and $leader_obj->isa("Data::MARC::Leader"))
105	2	9	unless ($ret =~ /^[\s\d]+$/ms)
110	6	3	if ($ret =~ /^\s+$/ms) { }