view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

lib/XML/Parser/GlobEvents.pm
lib/XML/Parser/GlobEvents.pod
Makefile.PL
MANIFEST			This list of files
README
t/00use.t
t/01source.t
t/02maildemo.t
t/03rdf.t
t/04ppd.t
t/05cdata.t
t/basic.xml
t/cdata.xml
t/DBI.ppd
t/mail.xml
t/uploads.rdf
examples/DBI.ppd
examples/ppd.pl
examples/rss_1.pl
examples/rss_2.pl
META.yml                                 Module meta-data (added by MakeMaker)

t/05cdata.t  view on Meta::CPAN

#!/usr/bin/perl -w

use Test::More tests => 1;

use XML::Parser::GlobEvents qw(parse);

(my $file = __FILE__) =~ s/[\w.~]+$/cdata.xml/;

my $data;

parse($file,
    '/*' => {
    	End => sub {
            my($node) = @_;
            $data = $node;
        },
        Whitespace => 'trim',