| line | stmt | bran | cond | sub | pod | time | code | 
| 1 |  |  |  |  |  |  | #!/usr/bin/perl -w | 
| 2 | 1 |  |  | 1 |  | 167137 | use strict; | 
|  | 1 |  |  |  |  | 2 |  | 
|  | 1 |  |  |  |  | 71 |  | 
| 3 |  |  |  |  |  |  |  | 
| 4 | 1 |  |  | 1 |  | 507 | use Test::More tests => 22; | 
|  | 1 |  |  |  |  | 16346 |  | 
|  | 1 |  |  |  |  | 6 |  | 
| 5 | 1 |  |  | 1 |  | 668 | use Test::Exception; | 
|  | 1 |  |  |  |  | 2518 |  | 
|  | 1 |  |  |  |  | 3 |  | 
| 6 |  |  |  |  |  |  |  | 
| 7 | 1 |  |  | 1 |  | 672 | use Data::Dumper; | 
|  | 1 |  |  |  |  | 5722 |  | 
|  | 1 |  |  |  |  | 59 |  | 
| 8 | 1 |  |  | 1 |  | 7 | use File::Basename; | 
|  | 1 |  |  |  |  | 2 |  | 
|  | 1 |  |  |  |  | 81 |  | 
| 9 | 1 |  |  | 1 |  | 818 | use File::Spec::Functions; | 
|  | 1 |  |  |  |  | 484 |  | 
|  | 1 |  |  |  |  | 62 |  | 
| 10 |  |  |  |  |  |  |  | 
| 11 | 1 |  |  | 1 |  | 270 | use lib "../lib"; | 
|  | 1 |  |  |  |  | 533 |  | 
|  | 1 |  |  |  |  | 3 |  | 
| 12 |  |  |  |  |  |  |  | 
| 13 | 1 |  |  | 1 |  | 74733 | use_ok("Devel::PerlySense"); | 
|  | 1 |  |  |  |  | 623 |  | 
|  | 1 |  |  |  |  | 2 |  | 
|  | 1 |  |  |  |  | 1 |  | 
|  | 1 |  |  |  |  | 6 |  | 
| 14 | 1 |  |  | 1 |  | 272 | use_ok("Devel::PerlySense::Document"); | 
|  | 1 |  |  |  |  | 73 |  | 
|  | 1 |  |  |  |  | 1 |  | 
|  | 1 |  |  |  |  | 1 |  | 
|  | 1 |  |  |  |  | 7 |  | 
| 15 | 1 |  |  | 1 |  | 194 | use_ok("Devel::PerlySense::Document::Meta"); | 
|  | 1 |  |  |  |  | 250 |  | 
|  | 1 |  |  |  |  | 1 |  | 
|  | 1 |  |  |  |  | 2 |  | 
|  | 1 |  |  |  |  | 9 |  | 
| 16 |  |  |  |  |  |  |  | 
| 17 |  |  |  |  |  |  |  | 
| 18 | 1 | 50 |  | 1 |  | 1718 | BEGIN { -d "t" and chdir("t"); } | 
| 19 |  |  |  |  |  |  |  | 
| 20 |  |  |  |  |  |  |  | 
| 21 | 1 |  |  |  |  | 194 | ok(my $oDocument = Devel::PerlySense::Document->new(oPerlySense => Devel::PerlySense->new()), "new ok"); | 
| 22 |  |  |  |  |  |  |  | 
| 23 |  |  |  |  |  |  |  | 
| 24 | 1 |  |  |  |  | 186 | my $dirData = "data/simple-lib"; | 
| 25 | 1 |  |  |  |  | 3 | my $fileOrigin = "$dirData/lib/Win32/Word/Writer.pm"; | 
| 26 |  |  |  |  |  |  |  | 
| 27 | 1 |  |  |  |  | 4 | ok($oDocument->parse(file => $fileOrigin), "Parsed file ok"); | 
| 28 |  |  |  |  |  |  |  | 
| 29 | 1 |  |  |  |  | 1246 | my $oMeta = $oDocument->oMeta; | 
| 30 |  |  |  |  |  |  |  | 
| 31 | 1 |  |  |  |  | 5 | is(scalar(@{$oMeta->raLocationSub}), 33, " Correct number of pod chunks found"); | 
|  | 1 |  |  |  |  | 27 |  | 
| 32 |  |  |  |  |  |  |  | 
| 33 | 1 |  |  |  |  | 687 | my $oLocation; | 
| 34 |  |  |  |  |  |  |  | 
| 35 | 1 |  |  |  |  | 645 | ok($oLocation = $oMeta->raLocationSub->[3], "Got a POD chunk (head1 inside pod)"); | 
| 36 | 1 |  |  |  |  | 556 | is($oLocation->row, 314, "  row"); | 
| 37 | 1 |  |  |  |  | 505 | is($oLocation->col, 1, "  col"); | 
| 38 | 1 |  |  |  |  | 425 | is($oLocation->rhProperty->{nameSub}, "SaveAs", "  nameSub"); | 
| 39 | 1 |  |  |  |  | 418 | is($oLocation->rhProperty->{namePackage}, "Win32::Word::Writer", "  namePackage"); | 
| 40 | 1 |  |  |  |  | 445 | is($oLocation->rhProperty->{source}, q'sub SaveAs { | 
| 41 |  |  |  |  |  |  | my $self = shift; | 
| 42 |  |  |  |  |  |  | my ($file, %hOpt) = @_; | 
| 43 |  |  |  |  |  |  | my $format = $hOpt{format} || "Document"; | 
| 44 |  |  |  |  |  |  |  | 
| 45 |  |  |  |  |  |  | defined(my $formatConst = $self->rhConst->{"wdFormat$format"}) or croak("Invalid format ($format), use Document, DOSText, DOSTextLineBreaks, EncodedText, HTML, RTF, Template, Text, TextLineBreaks, UnicodeText"); | 
| 46 |  |  |  |  |  |  |  | 
| 47 |  |  |  |  |  |  | $file = File::Spec->rel2abs($file); | 
| 48 |  |  |  |  |  |  |  | 
| 49 |  |  |  |  |  |  | eval { $self->oDocument->SaveAs({ FileName => $file, FileFormat => $formatConst }) }; | 
| 50 |  |  |  |  |  |  | if($@) { | 
| 51 |  |  |  |  |  |  | my $err = $@; | 
| 52 |  |  |  |  |  |  | if($err =~ /OLE exception from "Microsoft Word":\n\n(.+?)\nWin32::OLE/si) { | 
| 53 |  |  |  |  |  |  | die("Could not save file ($file): $1\n"); | 
| 54 |  |  |  |  |  |  | } | 
| 55 |  |  |  |  |  |  | die($err); | 
| 56 |  |  |  |  |  |  | } | 
| 57 |  |  |  |  |  |  |  | 
| 58 |  |  |  |  |  |  | return(1); | 
| 59 |  |  |  |  |  |  | }', "  sourceSub"); | 
| 60 | 1 |  |  |  |  | 422 | is($oLocation->rhProperty->{oLocationEnd}->row, 333, "  end row"); | 
| 61 | 1 |  |  |  |  | 460 | is($oLocation->rhProperty->{oLocationEnd}->col, 2, "  end col"); | 
| 62 |  |  |  |  |  |  |  | 
| 63 |  |  |  |  |  |  |  | 
| 64 |  |  |  |  |  |  |  | 
| 65 |  |  |  |  |  |  |  | 
| 66 | 1 |  |  |  |  | 1134 | ok($oLocation = $oMeta->raLocationSub->[32], "Got a POD chunk (head1 inside pod)"); | 
| 67 | 1 |  |  |  |  | 431 | is($oLocation->row, 1031, "  row"); | 
| 68 | 1 |  |  |  |  | 417 | is($oLocation->col, 1, "  col"); | 
| 69 | 1 |  |  |  |  | 605 | is($oLocation->rhProperty->{nameSub}, "DESTROY", "  nameSub"); | 
| 70 | 1 |  |  |  |  | 424 | is($oLocation->rhProperty->{namePackage}, "Win32::Word::Writer", "  namePackage"); | 
| 71 | 1 |  |  |  |  | 550 | is($oLocation->rhProperty->{source}, q/sub DESTROY { | 
| 72 |  |  |  |  |  |  | my $self = shift; | 
| 73 |  |  |  |  |  |  | $self->oTable(undef); | 
| 74 |  |  |  |  |  |  |  | 
| 75 |  |  |  |  |  |  | $self->oWord->{DisplayAlerts} = $rhConst->{wdAlertsNone}; | 
| 76 |  |  |  |  |  |  | $self->MarkDocumentAsSaved();        ##workaround: wdAlertsNone doesn't work in Word2000 so we insist that the document is already saved to avoid the dialog box | 
| 77 |  |  |  |  |  |  |  | 
| 78 |  |  |  |  |  |  | $self->oWord->Quit(); | 
| 79 |  |  |  |  |  |  | $self->oWord(undef);        #This destroys the OLE object | 
| 80 |  |  |  |  |  |  |  | 
| 81 |  |  |  |  |  |  | #Save after quitting to keep Word from locking the file | 
| 82 |  |  |  |  |  |  | if($self->fileTemp and -e $self->fileTemp) { | 
| 83 |  |  |  |  |  |  | unlink($self->fileTemp) or ($^W and warn("Could not delete temp file (" . $self->fileTemp . "): $!\n")); | 
| 84 |  |  |  |  |  |  | } | 
| 85 |  |  |  |  |  |  | }/, "  sourceSub"); | 
| 86 | 1 |  |  |  |  | 424 | is($oLocation->rhProperty->{oLocationEnd}->row, 1045, "  end row"); | 
| 87 | 1 |  |  |  |  | 424 | is($oLocation->rhProperty->{oLocationEnd}->col, 2, "  end col"); | 
| 88 |  |  |  |  |  |  |  | 
| 89 |  |  |  |  |  |  |  | 
| 90 |  |  |  |  |  |  |  | 
| 91 |  |  |  |  |  |  |  | 
| 92 |  |  |  |  |  |  |  | 
| 93 |  |  |  |  |  |  |  | 
| 94 |  |  |  |  |  |  | #print Dumper($oMeta); | 
| 95 |  |  |  |  |  |  |  | 
| 96 |  |  |  |  |  |  |  | 
| 97 |  |  |  |  |  |  |  | 
| 98 |  |  |  |  |  |  | __END__ |