From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sun, 12 Aug 2012 17:37:08 +0000 (-0700)
Subject: overload methods
X-Git-Tag: v1.000000~7
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b8aaa17d237994dae86b61a6aa96040fff75f425;p=scpubgit%2FHTML-String.git

overload methods
---

diff --git a/lib/HTML/String/Value.pm b/lib/HTML/String/Value.pm
index 2e48349..cb73ad2 100644
--- a/lib/HTML/String/Value.pm
+++ b/lib/HTML/String/Value.pm
@@ -6,14 +6,15 @@ use Safe::Isa;
 use Data::Munge;
 
 use overload
-    '""'   => 'escaped_string',
-    '.'    => 'dot',
-    'bool' => 'is_true',
+    '""'   => '_hsv_escaped_string',
+    '.'    => '_hsv_dot',
+    'bool' => '_hsv_is_true',
 
     fallback => 1,
 ;
 
 sub new {
+    if (ref($_[0])) { my $c = shift; return $c->_hsv_unescaped_string->new(@_) }
     my ($class, @raw_parts) = @_;
 
     my $opts = (ref($raw_parts[-1]) eq 'HASH') ? pop(@raw_parts) : {};
@@ -33,11 +34,19 @@ sub new {
     return $self;
 }
 
-sub escaped_string {
+sub AUTOLOAD {
+    my $invocant = shift;
+    (my $meth = our $AUTOLOAD) =~ s/.*:://;
+    die "No such method ${meth} on ${invocant}"
+        unless ref($invocant);
+    return $invocant->_hsv_unescaped_string->$meth(@_);
+}
+
+sub _hsv_escaped_string {
     my $self = shift;
 
     if ($self->{ignore}{scalar caller}) {
-        return $self->unescaped_string;
+        return $self->_hsv_unescaped_string;
     }
 
     return join '', map +(
@@ -52,13 +61,13 @@ sub escaped_string {
     ), @{$self->{parts}};
 }
 
-sub unescaped_string {
+sub _hsv_unescaped_string {
     my $self = shift;
 
     return join '', map $_->[0], @{$self->{parts}};
 }
 
-sub dot {
+sub _hsv_dot {
     my ($self, $str, $prefix) = @_;
 
     return $self unless $str;
@@ -80,7 +89,7 @@ sub dot {
     return ref($self)->new(@parts, { ignore => $self->{ignore} });
 }
 
-sub is_true {
+sub _hsv_is_true {
     my ($self) = @_;
     return 1 if grep length($_), map $_->[0], @{$self->{parts}};
 }
diff --git a/t/simple.t b/t/simple.t
index af9ff91..40ffbad 100644
--- a/t/simple.t
+++ b/t/simple.t
@@ -35,4 +35,16 @@ chomp($four);
 
 is("$four", '<tag>Hi &lt;bob&gt;</tag>');
 
+{
+    package MyPkg;
+
+    sub new { 'foo' }
+
+    sub load { 'bar' }
+}
+
+is(html('MyPkg')->new, 'foo');
+
+is(html('MyPkg')->load, 'bar');
+
 done_testing;