package Com::Foiani::HTMLQuoter;

use strict;
use warnings;

use Carp qw( croak );

sub TIEHASH
{
    return bless {};
}

sub UNTIE
{
}

sub FETCH
{
    my ( $self, $in ) = @_;
    $in =~ s/&/&/g;
    $in =~ s/</&lt;/g;
    $in =~ s/>/&gt;/g;
    $in =~ s/\'/&\#27;/g;
    $in =~ s/\"/&quot;/g;
    return $in;
}

sub EXISTS
{
    return defined $_[0];
}

sub STORE    { croak __PACKAGE__ . " does not implement STORE"; }
sub FIRSTKEY { croak __PACKAGE__ . " does not implement FIRSTKEY"; }
sub NEXTKEY  { croak __PACKAGE__ . " does not implement NEXTKEY"; }
sub DELETE   { croak __PACKAGE__ . " does not implement DELETE"; }
sub CLEAR    { croak __PACKAGE__ . " does not implement CLEAR"; }
sub SCALAR   { croak __PACKAGE__ . " does not implement SCALAR"; }

1;