pure Perl implementation for parsing/writing XML documents

required for p5-WWW-YouTube-Download

Maintainer:  Mikolaj Kucharski <mikolaj@kucharski.name>

Ok nigel@

textproc/p5-XML-TreePP/Makefile

@@ -0,0 +1,28 @@
+# $OpenBSD: Makefile,v 1.1.1.1 2012/01/24 00:25:56 nigel Exp $
+
+COMMENT =	pure Perl implementation for parsing/writing XML documents
+
+DISTNAME =	XML-TreePP-0.41
+CATEGORIES =	textproc
+CPAN_AUTHOR =	KAWASAKI
+
+MAINTAINER =	Mikolaj Kucharski <mikolaj@kucharski.name>
+
+# Perl
+PERMIT_PACKAGE_CDROM =	Yes
+PERMIT_PACKAGE_FTP =	Yes
+PERMIT_DISTFILES_CDROM =Yes
+PERMIT_DISTFILES_FTP =	Yes
+
+MODULES =	cpan
+
+RUN_DEPENDS =		p5-libwww-*|p5-HTTP-Lite-*:www/p5-libwww
+REGRESS_DEPENDS =	converters/p5-Jcode \
+			devel/p5-Test-Pod \
+			devel/p5-Tie-IxHash \
+			www/p5-HTTP-Lite \
+			www/p5-libwww
+
+REGRESS_FLAGS =		MORE_TESTS=Yes
+
+.include <bsd.port.mk>

textproc/p5-XML-TreePP/distinfo

@@ -0,0 +1,5 @@
+MD5 (XML-TreePP-0.41.tar.gz) = PpmaxRkWPPPKtw0+6NQLNA==
+RMD160 (XML-TreePP-0.41.tar.gz) = qfikfmoseBS6Z40aw2r6txzYDtw=
+SHA1 (XML-TreePP-0.41.tar.gz) = yhZBPrewwCPQpjQ8cIYd5UTTvCs=
+SHA256 (XML-TreePP-0.41.tar.gz) = qoytZ/EO4FXKBmL44Sn86gMi+jsdqevVUNMJT+oNch4=
+SIZE (XML-TreePP-0.41.tar.gz) = 96333

textproc/p5-XML-TreePP/patches/patch-lib_XML_TreePP_pm

@@ -0,0 +1,14 @@
+$OpenBSD: patch-lib_XML_TreePP_pm,v 1.1.1.1 2012/01/24 00:25:56 nigel Exp $
+
+timeout of 10 seconds is way too low, stick with defaults
+
+--- lib/XML/TreePP.pm.orig	Sun Oct 31 10:47:03 2010
++++ lib/XML/TreePP.pm	Sun Jan 16 14:40:59 2011
+@@ -627,7 +627,6 @@ sub parsehttp_lwp {
+     my $ua = $self->{lwp_useragent} if exists $self->{lwp_useragent};
+     if ( ! ref $ua ) {
+         $ua = LWP::UserAgent->new();
+-        $ua->timeout(10);
+         $ua->env_proxy();
+         $ua->agent( $self->{__user_agent} ) if defined $self->{__user_agent};
+     } else {

textproc/p5-XML-TreePP/patches/patch-t_09_http-lite_t

@@ -0,0 +1,15 @@
+$OpenBSD: patch-t_09_http-lite_t,v 1.1.1.1 2012/01/24 00:25:56 nigel Exp $
+
+use.perl.org returns http 500, use different rss feed
+
+--- t/09_http-lite.t.orig	Sat Nov 21 05:19:02 2009
++++ t/09_http-lite.t	Mon Jan 23 22:34:12 2012
+@@ -21,7 +21,7 @@ sub parsehttp_get {
+     my $tpp = XML::TreePP->new();
+     my $name = ( $0 =~ m#([^/:\\]+)$# )[0];
+     $tpp->set( user_agent => "$name " );
+-    my $url = "http://use.perl.org/index.rss";
++    my $url = "http://rss.slashdot.org/Slashdot/slashdot";
+     my $tree = $tpp->parsehttp( GET => $url );
+     ok( ref $tree, $url );
+     like( $tree->{"rdf:RDF"}->{channel}->{link}, qr{^http://}, "$url link" );

textproc/p5-XML-TreePP/patches/patch-t_10_http-lwp_t

@@ -0,0 +1,15 @@
+$OpenBSD: patch-t_10_http-lwp_t,v 1.1.1.1 2012/01/24 00:25:56 nigel Exp $
+
+use.perl.org returns http 500, use different rss feed
+
+--- t/10_http-lwp.t.orig	Sat Nov 21 05:19:02 2009
++++ t/10_http-lwp.t	Mon Jan 23 22:38:33 2012
+@@ -21,7 +21,7 @@ sub parsehttp_get {
+     my $tpp = XML::TreePP->new();
+     my $name = ( $0 =~ m#([^/:\\]+)$# )[0];
+     $tpp->set( user_agent => "$name " );
+-    my $url = "http://use.perl.org/index.rss";
++    my $url = "http://rss.slashdot.org/Slashdot/slashdot";
+     my $tree = $tpp->parsehttp( GET => $url );
+     ok( ref $tree, $url );
+     like( $tree->{"rdf:RDF"}->{channel}->{link}, qr{^http://}, "$url link" );

textproc/p5-XML-TreePP/pkg/DESCR

@@ -0,0 +1,5 @@
+XML::TreePP module parses an XML document and expands it to a hash tree
+or generates an XML document from a hash tree as the opposite way
+around.  This is a pure Perl implementation and requires no modules
+depended. This can also fetch and parse an XML document from remote web
+server like the XMLHttpRequest object does at JavaScript language.

textproc/p5-XML-TreePP/pkg/PLIST

@@ -0,0 +1,4 @@
+@comment $OpenBSD: PLIST,v 1.1.1.1 2012/01/24 00:25:56 nigel Exp $
+${P5SITE}/XML/
+${P5SITE}/XML/TreePP.pm
+@man man/man3p/XML::TreePP.3p