Close()

Discard the current document no-questions-asked (i.e. even if it's not saved).

Note that this object is in an unusable state until a new document is created or opened.

}, " Got POD"); is($oLocation->rhProperty->{name}, "Close", " Got name ok"); is($oLocation->rhProperty->{docType}, "hint", " Got docType ok"); is($oLocation->rhProperty->{found}, "method", " Got found ok");

ok($oLocation = $oDocument->oLocationPod(name => "Write", lookFor => "method"), "Found correct POD line (inside POD block)"); is($oLocation->file, $fileOrigin, " Got file"); is($oLocation->row, 391, " row"); is($oLocation->col, 1, " col"); is($oLocation->rhProperty->{pod}, q{=head1 METHODS - ADDING TEXT

Write($text)

Append $text to the document (using the current style etc).

}, " Got POD"); is($oLocation->rhProperty->{name}, "Write", " Got name ok"); is($oLocation->rhProperty->{docType}, "hint", " Got docType ok"); is($oLocation->rhProperty->{found}, "method", " Got found ok");

ok($oLocation = $oDocument->oLocationPod(name => "hasWrittenParagraph", lookFor => "method"), "Found correct POD line =item"); is($oLocation->file, $fileOrigin, " Got file"); is($oLocation->row, 1193, " row"); is($oLocation->col, 1, " col"); is($oLocation->rhProperty->{pod}, q{=head1 PRIVATE PROPERTIES

hasWrittenParagraph

Whether the writer has written a paragraph yet.

}, " Got POD"); is($oLocation->rhProperty->{name}, "hasWrittenParagraph", " Got name ok"); is($oLocation->rhProperty->{docType}, "hint", " Got docType ok"); is($oLocation->rhProperty->{found}, "method", " Got found ok");

ok($oLocation = $oDocument->oLocationPod(name => "hasWrittenText", lookFor => "method"), "Found correct POD line =item ()"); is($oLocation->file, $fileOrigin, " Got file"); is($oLocation->row, 1198, " row"); is($oLocation->col, 1, " col"); is($oLocation->rhProperty->{pod}, q{=head1 PRIVATE PROPERTIES

hasWrittenText

Whether the writer has written any text or paragraph yet.

}, " Got POD"); is($oLocation->rhProperty->{name}, "hasWrittenText", " Got name ok"); is($oLocation->rhProperty->{docType}, "hint", " Got docType ok"); is($oLocation->rhProperty->{found}, "method", " Got found ok");

__END__