File Coverage

blib/lib/Win32/ASP/Extras.pm

Criterion	Covered	Total	%
statement	27	38	71.0
branch	0	8	0.0
condition			n/a
subroutine	6	8	75.0
pod	2	2	100.0
total	35	56	62.5

###########################################################################
#
# Win32::ASP::Extras - a extension to Win32::ASP that provides more methods
#
# Author: Toby Everett
# Revision: 1.01
# Last Change: Placed all the code in Win32::ASP::Extras, added load time
#              code to patch into the Win32::ASP namespace
###########################################################################
# Copyright 1999, 2000 Toby Everett.  All rights reserved.
#
# This file is distributed under the Artistic License. See
# http://www.ActiveState.com/corporate/artistic_license.htm or
# the license that comes with your perl distribution.
#
# For comments, questions, bugs or general interest, feel free to
# contact Toby Everett at [e-mail]
##########################################################################
use Data::Dumper;

use strict;

package Win32::ASP::Extras;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);

BEGIN {
  require Exporter;
  require AutoLoader;

  use vars qw( @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS );

  @ISA = qw(Exporter AutoLoader);
  @EXPORT   = qw( );
  %EXPORT_TAGS = ( );
  @EXPORT_OK = qw ( );
  Exporter::export_ok_tags( ); # Add all strict vars to @EXPORT_OK

  {
    no strict;
    foreach my $i (qw(Set Get FormatURL _FormatURL QueryStringList Redirect MyURL
                      CreatePassURLPair GetPassURL PassURLPair StampPage)) {
      *{"Win32::ASP::$i"} = *{$i};
    }
  }
}

$VERSION='1.01';

#Get and Set have to be preloaded because they use a shared, lexically scoped hash for
#memoization

{

my %memo;

sub Set {
  my($name, $thing) = @_;

  $main::Session->{$name} = Data::Dumper->Dump([$thing], ['thing']);
  exists $memo{$name} and delete $memo{$name};
}

sub Get {
  my($name) = @_;

  unless (exists $memo{$name}) {
    my $string = $main::Session->{$name} or return;
    my $thing;
    eval($string);
    $@ and return;
    $memo{$name} = $thing;
  }
  return $memo{$name};
}

}

# Autoload methods go after =cut, and are processed by the autosplit program.

1;
__END__