view: remove last Hval->new caller

[public-inbox.git] / lib / PublicInbox / Hval.pm

diff --git a/lib/PublicInbox/Hval.pm b/lib/PublicInbox/Hval.pm
index 40c97da478fe6685810afa1c2c866945b70ef7a3..5f7ab513b11d9d3f0cc61459153c6c067f8c0f7d 100644 (file)
--- a/lib/PublicInbox/Hval.pm
+++ b/lib/PublicInbox/Hval.pm
@@ -16,17 +16,6 @@ my $enc_ascii = find_encoding('us-ascii');
 # safe-ish acceptable filename pattern for portability
 our $FN = '[a-zA-Z0-9][a-zA-Z0-9_\-\.]+[a-zA-Z0-9]'; # needs \z anchor
 
-sub new {
-       my ($class, $raw, $href) = @_;
-
-       # we never care about trailing whitespace
-       $raw =~ s/\s*\z//;
-       bless {
-               raw => $raw,
-               href => defined $href ? $href : $raw,
-       }, $class;
-}
-
 sub mid_href { ascii_html(mid_escape($_[0])) }
 
 # some of these overrides are standard C escapes so they're
@@ -71,16 +60,6 @@ sub ascii_html {
        $enc_ascii->encode($s, Encode::HTMLCREF);
 }
 
-sub as_html { ascii_html($_[0]->{raw}) }
-
-sub raw {
-       if (defined $_[1]) {
-               $_[0]->{raw} = $_[1];
-       } else {
-               $_[0]->{raw};
-       }
-}
-
 # returns a protocol-relative URL string
 sub prurl ($$) {
        my ($env, $u) = @_;