NAME

WWW::CheckSite::Util - provide utilities for WWW::CheckSite

SYNOPSIS

    use WWW::CheckSite::Util;

    my $cache = new_cashe;

    my $data;
    if ( $data = $cache->has( $key ) ) { # $data is a *copy*
        # change $data
        $cache->set( $key => $data );
    } else {
        # set $data
        $cache->set( $key => $data );
    }

    my $stack = new_stack( @sfields );

new_cache

Return a new WWW::CheckSite::Util::Cache object.

new_stack

Return a new WWW::CheckSite::Util::Stack object.

WWW::CheckSite::Util::Cache

Implements a simple cache as a hash. Storage and reteival on the keyvalue.

set( $key => $data )

Add (or update) the cache for this key. Returns $data.

unset( $key )

Remove the item for this key from the cache.

has( $key )

Return the data if the exists otherwise return undef.

WWW::CheckSite::Util::Stack

Implements a simple "Last in First out" stack. (They're called arrays in Perl :-)

push( $data )

Push $data onto the stack.

pop

Return the last data pushed onto the stack.

peek

Return the last item on the stack without popping it.

size

Return the size of the stack.

COPYRIGHT