diff options
author | Yorhel <git@yorhel.nl> | 2011-01-15 16:07:13 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2011-01-15 16:07:13 +0100 |
commit | d61ba5450ec359b55db8767c41a87c888c0f6a85 (patch) | |
tree | b7a6587e8f2d1d34af36640ab6abbcb56b9e1dd2 /examples | |
parent | 99ae00c40751b2008278756b2a6af5245ea7ff63 (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-x | examples/xml.pl | 2 |
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'); |