TUWF::XML: Add HTML5 tags

There are many of them, and some may clash with commonly exported
functions by other modules. So instead of ucfirst()ing only a few
special ones, I decided to be consistend and ucfirst everything. It's
slightly uglier, though. :(

1 files changed, 12 insertions, 12 deletions

diff --git a/examples/singlefile.pl b/examples/singlefile.pl
index 023223f..8c70c24 100755
--- a/examples/singlefile.pl
+++ b/examples/singlefile.pl
@@ -19,25 +19,25 @@ use lib $ROOT.'/lib';
 
 
 # load TUWF and import all html functions
-use TUWF ':html';
+use TUWF ':html5';
 
 TUWF::set debug => 1;
 
 # Register a handle for the root path, i.e. "GET /"
 TUWF::get '/' => sub {
   # Generate an overly simple html page
-  html sub {
-   body sub {
-    h1 'Hello World!';
-    p 'Check out the following awesome links!';
-    ul sub {
-     for (qw|awesome cool etc|) {
-       li sub {
-        a href => "/sub/$_", $_;
-       };
-     }
+  Html sub {
+    Body sub {
+      H1 'Hello World!';
+      P 'Check out the following awesome links!';
+      Ul sub {
+        for (qw|awesome cool etc|) {
+          Li sub {
+            A href => "/sub/$_", $_;
+          };
+        }
+      };
     };
-   };
   };
 };