- Timestamp:
- 2013-07-08T22:17:10+12:00 (11 years ago)
- Location:
- main/trunk/release-kits/shared/linux/XML-Parser/perl-5.14/XML/Parser
- Files:
-
- 8 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/release-kits/shared/linux/XML-Parser/perl-5.14/XML/Parser/Encodings/README
r27768 r27777 1 1 This directory contains binary encoding maps for some selected encodings. 2 If they are placed in a directo y listed in @XML::Parser::Expat::Encoding_Path,3 then they are automatic ly loaded by the XML::Parser::Expat::load_encoding2 If they are placed in a directory listed in @XML::Parser::Expat::Encoding_Path, 3 then they are automatically loaded by the XML::Parser::Expat::load_encoding 4 4 function as needed. Otherwise you may load what you need directly by 5 explicit y calling this function.5 explicitly calling this function. 6 6 7 7 These maps were generated by a perl script that comes with the module -
main/trunk/release-kits/shared/linux/XML-Parser/perl-5.14/XML/Parser/Expat.pm
r27768 r27777 11 11 12 12 @ISA = qw(DynaLoader); 13 $VERSION = "2. 34";13 $VERSION = "2.41"; 14 14 15 15 $have_File_Spec = $INC{'File/Spec.pm'} || do 'File/Spec.pm'; … … 443 443 444 444 if (defined $arg) { 445 local *@; 445 446 if (ref($arg) and UNIVERSAL::isa($arg, 'IO::Handle')) { 446 447 $ioref = $arg; 447 } elsif (tied($arg)) { 448 my $class = ref($arg); 449 no strict 'refs'; 450 $ioref = $arg if defined &{"${class}::TIEHANDLE"}; 448 } elsif ($] < 5.008 and defined tied($arg)) { 449 require IO::Handle; 450 $ioref = $arg; 451 451 } 452 452 else { … … 456 456 $ioref = *{$arg}{IO} if defined *{$arg}; 457 457 }; 458 undef $@;459 458 } 460 459 } … … 463 462 my $delim = $self->{Stream_Delimiter}; 464 463 my $prev_rs; 464 my $ioclass = ref $ioref; 465 $ioclass = "IO::Handle" if !length $ioclass; 465 466 466 $prev_rs = ref($ioref)->input_record_separator("\n$delim\n")467 $prev_rs = $ioclass->input_record_separator("\n$delim\n") 467 468 if defined($delim); 468 469 469 470 $result = ParseStream($parser, $ioref, $delim); 470 471 471 ref($ioref)->input_record_separator($prev_rs)472 $ioclass->input_record_separator($prev_rs) 472 473 if defined($delim); 473 474 } else { … … 496 497 497 498 ################################################################ 498 package XML::Parser::ContentModel; 499 package #hide from PAUSE 500 XML::Parser::ContentModel; 499 501 use overload '""' => \&asString, 'eq' => \&thiseq; 500 502 … … 583 585 584 586 ################################################################ 585 package XML::Parser::ExpatNB; 587 package #hide from PAUSE 588 XML::Parser::ExpatNB; 586 589 587 590 use vars qw(@ISA); … … 649 652 ################################################################ 650 653 651 package XML::Parser::Encinfo; 654 package #hide from PAUSE 655 XML::Parser::Encinfo; 652 656 653 657 sub DESTROY { … … 668 672 use XML::Parser::Expat; 669 673 670 $parser = new XML::Parser::Expat;674 $parser = XML::Parser::Expat->new; 671 675 $parser->setHandlers('Start' => \&sh, 672 676 'End' => \&eh, 673 677 'Char' => \&ch); 674 open(FOO, ' info.xml') or die "Couldn't open";678 open(FOO, '<', 'info.xml') or die "Couldn't open"; 675 679 $parser->parse(*FOO); 676 680 close(FOO); … … 1213 1217 table. Earlier encodings of the same name are replaced. 1214 1218 1215 This function is automatic ly called by expat when it encounters an encoding1219 This function is automatically called by expat when it encounters an encoding 1216 1220 it doesn't know about. Expat shouldn't call this twice for the same 1217 1221 encoding name. The only reason users should use this function is to -
main/trunk/release-kits/shared/linux/XML-Parser/perl-5.14/XML/Parser/Style/Debug.pm
r27768 r27777 1 # $Id: Debug.pm,v 1.1 2003 /07/27 16:07:49 matt Exp $1 # $Id: Debug.pm,v 1.1 2003-07-27 16:07:49 matt Exp $ 2 2 3 3 package XML::Parser::Style::Debug; -
main/trunk/release-kits/shared/linux/XML-Parser/perl-5.14/XML/Parser/Style/Objects.pm
r27768 r27777 1 # $Id: Objects.pm,v 1.1 2003 /08/18 20:20:51 matt Exp $1 # $Id: Objects.pm,v 1.1 2003-08-18 20:20:51 matt Exp $ 2 2 3 3 package XML::Parser::Style::Objects; -
main/trunk/release-kits/shared/linux/XML-Parser/perl-5.14/XML/Parser/Style/Stream.pm
r27768 r27777 1 # $Id: Stream.pm,v 1.1 2003 /07/27 16:07:49 matt Exp $1 # $Id: Stream.pm,v 1.1 2003-07-27 16:07:49 matt Exp $ 2 2 3 3 package XML::Parser::Style::Stream; -
main/trunk/release-kits/shared/linux/XML-Parser/perl-5.14/XML/Parser/Style/Subs.pm
r27768 r27777 1 # $Id: Subs.pm,v 1.1 2003 /07/27 16:07:49 matt Exp $1 # $Id: Subs.pm,v 1.1 2003-07-27 16:07:49 matt Exp $ 2 2 3 3 package XML::Parser::Style::Subs; -
main/trunk/release-kits/shared/linux/XML-Parser/perl-5.14/XML/Parser/Style/Tree.pm
r27768 r27777 1 # $Id: Tree.pm,v 1.2 2003 /07/31 07:54:51 matt Exp $1 # $Id: Tree.pm,v 1.2 2003-07-31 07:54:51 matt Exp $ 2 2 3 3 package XML::Parser::Style::Tree;
Note:
See TracChangeset
for help on using the changeset viewer.