# $Id: Tools.pm,v 1.3 1999/11/23 15:56:25 tom Exp $
package CGI::Tools;

=head1 NAME

  CGI::Tools - CGI ツール群

=cut

use strict;
use Exporter;
use vars qw(@ISA @EXPORT);
@ISA = qw(Exporter);
@EXPORT = qw(Escape);



=head2 Escape($str);

$str をエスケープする

=cut

sub Escape($)
{
    my $str = shift;
    $str =~ s/&/&amp;/g;
    $str =~ s/</&lt;/g;
    $str =~ s/>/&gt;/g;
    $str;
}
1;
################################################################
