summaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
authorYorhel <git@yorhel.nl>2011-01-15 16:07:13 +0100
committerYorhel <git@yorhel.nl>2011-01-15 16:07:13 +0100
commitd61ba5450ec359b55db8767c41a87c888c0f6a85 (patch)
treeb7a6587e8f2d1d34af36640ab6abbcb56b9e1dd2 /examples
parent99ae00c40751b2008278756b2a6af5245ea7ff63 (diff)
TUWF::XML: Added 'default' option to new()
To replace the not-really-nice way of assinging to $TUWF::XML::OBJ.
Diffstat (limited to 'examples')
-rwxr-xr-xexamples/xml.pl2
1 files changed, 1 insertions, 1 deletions
diff --git a/examples/xml.pl b/examples/xml.pl
index 4f23616..70e78eb 100755
--- a/examples/xml.pl
+++ b/examples/xml.pl
@@ -37,7 +37,7 @@ $h->end('html');
# generate an pretty-printed XML document using the functional interface
print "\n\nXML document:\n";
-$TUWF::XML::OBJ = TUWF::XML->new(write => sub { print @_ }, pretty => 2);
+TUWF::XML->new(write => sub { print @_ }, pretty => 2, default => 1);
xml();
tag('root', attribute => 'value');
tag('tag', 'Contents');