From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sun, 12 Aug 2012 11:01:00 +0000 (+0000)
Subject: lose .= and = overrides - fallback means the . override will handle it
X-Git-Tag: v1.000000~11
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c24b04a91d639e7635c4755070eb1b1b06cdcdd4;p=scpubgit%2FHTML-String.git

lose .= and = overrides - fallback means the . override will handle it
---

diff --git a/lib/HTML/String/Value.pm b/lib/HTML/String/Value.pm
index 97c80fa..2ef0ba9 100644
--- a/lib/HTML/String/Value.pm
+++ b/lib/HTML/String/Value.pm
@@ -8,8 +8,6 @@ use Data::Munge;
 use overload
     '""'   => 'escaped_string',
     '.'    => 'dot',
-    '.='   => 'dot_equals',
-    '='    => 'clone',
 
     fallback => 1,
 ;
@@ -75,28 +73,6 @@ sub dot {
     return ref($self)->new(@parts);
 }
 
-sub dot_equals {
-    my ($self, $str, $prefix) = @_;
-
-    return $self unless $str;
-
-    my @new_parts = (
-        $str->$_isa(__PACKAGE__)
-            ? @{$str->{parts}}
-            : [ $str, 1 ]
-    );
-
-    push @{$self->{parts}}, @new_parts;
-
-    return $self;
-}
-
-sub clone {
-    my $self = shift;
-
-    return ref($self)->new(@{$self->{parts}});
-}
-
 sub ref { '' }
 
 1;