Re^5: Mixing documentation and data

Yes but its considered part of __DATA__ :

use strict   ;
use warnings ;

package FOO::Messages;

while(<DATA>) { 
    print $_ ;
}

sub foo{}

=head1 __DATA__

This is the data stuff here.

=cut

1;
__DATA__

data stuff here.

=head1 OtherHeading
Supp

=cut
asdfasdfasdf
[download]

Output:

perl pod.pl

data stuff here.

=head1 OtherHeading
Supp

=cut
asdfasdfasdf
[download]

Of course if the OP wants to parse out the POD bits then I guess this is a solution.

Comment on Re^5: Mixing documentation and data Select or Download Code

Replies are listed 'Best First'.
Re^6: Mixing documentation and data by Anonymous Monk on Feb 01, 2013 at 10:46 UTC
That is kind of my point, why duplicate the information when you don't have to	[reply]
Re^7: Mixing documentation and data by tmharish (Friar) on Feb 01, 2013 at 10:55 UTC
I agree. Kind of like tobyink's solution. Also ... Whats with remaining Anonymous Monk??	[reply]
Re^8: Mixing documentation and data by Anonymous Monk on Feb 01, 2013 at 11:17 UTC
Also ... Whats with remaining Anonymous Monk?? For the honor	[reply]
Re^9: Mixing documentation and data by punch_card_don (Curate) on Feb 01, 2013 at 13:23 UTC