| lib/Spreadsheet/Engine/Storage/SocialCalc.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 18 | 77.7 |
| line | true | false | branch |
|---|---|---|---|
| 40 | 0 | 21 | unless my $datafile = 'IO::File'->new($file) |
| 46 | 21 | 21 | if $line =~ m[^Content-Type:\smultipart/mixed;]i |
| 49 | 0 | 21 | unless $boundary = $1 |
| 53 | 21 | 0 | if $line =~ /^--$boundary$/o |
| 59 | 21 | 81 | unless $line |
| 65 | 21 | 21 | if $line =~ /$bregex/ |
| 66 | 0 | 21 | if $headerlines |
| 72 | 21 | 21 | unless $line |
| 76 | 21 | 5170 | if $line =~ /$bregex/ |