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

    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 );

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

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

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

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

Remove the item for this key from the cache.

Return the data if the exists otherwise return undef.

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

Push $data onto the stack.

Return the last data pushed onto the stack.

Return the last item on the stack without popping it.

Return the size of the stack.