| line | stmt | bran | cond | sub | pod | time | code | 
| 1 |  |  |  |  |  |  | #!/usr/bin/perl -w | 
| 2 | 1 |  |  | 1 |  | 170691 | use strict; | 
|  | 1 |  |  |  |  | 1 |  | 
|  | 1 |  |  |  |  | 65 |  | 
| 3 |  |  |  |  |  |  |  | 
| 4 | 1 |  |  | 1 |  | 490 | use Test::More tests => 4; | 
|  | 1 |  |  |  |  | 25951 |  | 
|  | 1 |  |  |  |  | 9 |  | 
| 5 | 1 |  |  | 1 |  | 1683 | use Test::Exception; | 
|  | 1 |  |  |  |  | 6151 |  | 
|  | 1 |  |  |  |  | 6 |  | 
| 6 |  |  |  |  |  |  |  | 
| 7 | 1 |  |  | 1 |  | 290 | use File::Basename; | 
|  | 1 |  |  |  |  | 1 |  | 
|  | 1 |  |  |  |  | 126 |  | 
| 8 | 1 |  |  | 1 |  | 442 | use File::Spec::Functions; | 
|  | 1 |  |  |  |  | 530 |  | 
|  | 1 |  |  |  |  | 65 |  | 
| 9 |  |  |  |  |  |  |  | 
| 10 | 1 |  |  | 1 |  | 310 | use lib "../lib"; | 
|  | 1 |  |  |  |  | 607 |  | 
|  | 1 |  |  |  |  | 4 |  | 
| 11 |  |  |  |  |  |  |  | 
| 12 | 1 |  |  | 1 |  | 97221 | use_ok("Devel::PerlySense::Document"); | 
|  | 1 |  |  |  |  | 443 |  | 
|  | 1 |  |  |  |  | 2 |  | 
|  | 1 |  |  |  |  | 2 |  | 
|  | 1 |  |  |  |  | 9 |  | 
| 13 |  |  |  |  |  |  |  | 
| 14 |  |  |  |  |  |  |  | 
| 15 | 1 | 50 |  | 1 |  | 1493 | BEGIN { -d "t" and chdir("t"); } | 
| 16 |  |  |  |  |  |  |  | 
| 17 |  |  |  |  |  |  |  | 
| 18 | 1 |  |  |  |  | 304 | ok(my $oDocument = Devel::PerlySense::Document->new(oPerlySense => Devel::PerlySense->new()), "new ok"); | 
| 19 |  |  |  |  |  |  |  | 
| 20 | 1 |  |  |  |  | 316 | my $dirData = "data/simple-lib"; | 
| 21 | 1 |  |  |  |  | 3 | my $fileOrigin = "$dirData/lib/Win32/Word/Writer.pm"; | 
| 22 |  |  |  |  |  |  |  | 
| 23 | 1 |  |  |  |  | 3 | ok($oDocument->parse(file => $fileOrigin), "Parsed file ok"); | 
| 24 |  |  |  |  |  |  |  | 
| 25 | 1 |  |  |  |  | 318 | is( | 
| 26 |  |  |  |  |  |  | $oDocument->stringSignatureSurveyFromFile(), | 
| 27 |  |  |  |  |  |  | q|===;;;";"";"";";";";";";";";";";";;";;";;";;;;;";;";;;";;";;;;";;;;;;";;";;;;";;";;;";;";;";==S{";};;';;;;;;;;;";;'";;=====;===S{;;;;;;;';;";";;";";;';';}=S{;;;";"'";;{'};;";;;;}=S{;;";{"}";;{};{;"{";};};}=S{;;;}=S{;;;{};;;}==S{;;;;;}=S{;;{;}{;};;;}=S{;;;;;;;}=S{;;";;;;{;};{;"{";};};}=S{;";";}=S{;;;;";";}=S{;;;}=S{;;;;;}=S{;;;}=S{;;;;;}==S{;;{;}{;};;;}=S{;{;};;}=S{;;{;}{';;}{;};;;}==S{;;";;;;;}=S{;;;;}=S{;;;;}=S{;;;;";;}==S{;{};;}=S{;;;}==S{;";";;;;;;;}=S{;;{;";";};}==S{;;;;}=S{;;{};;}=S{;;;;;}==S{;;;}=SA{;"";;}=S{;;;;';;{"";}};=============;============;|, | 
| 28 |  |  |  |  |  |  | "Signature survey for Writer ok", | 
| 29 |  |  |  |  |  |  | ); | 
| 30 |  |  |  |  |  |  |  | 
| 31 |  |  |  |  |  |  |  | 
| 32 |  |  |  |  |  |  |  | 
| 33 |  |  |  |  |  |  |  | 
| 34 |  |  |  |  |  |  | __END__ |