Re: [cgiapp] CGI::App, CGI::Session and CGI::Simple

[Ron Savage <suppressed>]

Try this:

#!/usr/bin/perl

use strict;
use warnings;

use CGI;

# ------

my(%method);

for my $tag (keys %CGI::EXPORT_TAGS)
{
	$method{$_} = 1 for grep{! /^:/} (@{$CGI::EXPORT_TAGS{$tag} });
}

print "$_. \n" for (sort keys %method);
-- 
Ron Savage, suppressed on 3/05/2004. Room EF 312
Deakin University, 221 Burwood Highway, Burwood, VIC 3125, Australia
Phone: +61-3-9251 7067, Fax: +61-3-9251 7604
http://www.deakin.edu.au/~rsav



---------------------------------------------------------------------
Web Archive:  http://www.mail-archive.com/suppressed/
              http://marc.theaimsgroup.com/?l=cgiapp&r=1&w=2
To unsubscribe, e-mail: suppressed
For additional commands, e-mail: suppressed