PerlForms Code

#
# Copyright 2008 Samuel Borsutzky
#
# This file is part of PerlForms.
#
# PerlForms is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# PerlForms is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with PerlForms.  If not, see <http://www.gnu.org/licenses/>.
#
#
#

package PerlForms::Storage;

use strict;
use base 'PerlForms';

sub init {
#    print STDERR __PACKAGE__."->init got called with ".join(",",@_)."\n";
    my$self=shift;
    my%arg=@_;
    
    unless(defined($arg{"name"})) {
        warn(__PACKAGE__."->init: Need a name. Returning undef.\n");
        return undef
    } else {
        $self->{"name"}=$arg{"name"}
    }
}

sub dict {
    my%storage=$_[0]->{req}->env("storage");
    $storage{$_[0]->{"name"}}
}



package Main;

1;