Branch Coverage

blib/lib/SMS/Send.pm
Criterion Covered Total %
branch 33 42 78.5


line true false branch
85 1 0 unless (@DRIVERS)
141 0 9 &Params::Util::_HASH0($_[0]) ? :
145 2 4 unless (&Params::Util::_INSTANCE($object, "SMS::Send::Driver"))
151 0 4 unless (&Params::Util::_INSTANCE($self, $class))
233 6 6 unless (_STRING($text))
239 3 3 unless (_STRING($to))
245 2 1 unless (_STRING($to))
248 0 1 unless ($to =~ /^\+?\d+$/)
253 0 1 if ($to =~ /^\+0/)
256 0 1 if ($to =~ /^\+/ and length $to <= 7)
259 1 0 unless (ref($self->_OBJECT_) =~ /^SMS::Send::\w+::/)
261 0 1 unless ($to =~ /^\+/)
274 0 1 unless (defined $rv)
297 4 19 unless (defined $name and not ref $name and length $name)
300 1 18 if ($name =~ /^\d+$/)
308 4 14 unless (&Params::Util::_CLASS($driver))
314 2 12 if ($@ and $@ =~ /^Can't locate /) { }
1 11 elsif ($@) { }
324 2 9 unless ($driver->isa("SMS::Send::Driver") and $driver ne "SMS::Send::Driver")
333 1 9 ref $_[0] ? :
339 1 3 if (_STRING($key) and $key =~ /^_/)