sub obscure {
        my ( $self, $s ) = @_;
        
        use constant REPLACEMENT => '*';

        my @pairs = split /&/, $s;

        my @temp = map {
                my ( $name, $value ) = split /=/;
                $name . "=" . REPLACEMENT x length( $value )
        } @pairs;

        return join '&', @temp;
}

##</code><code>##

sub obscure {
        my ( $self, $s ) = @_;
        use constant REPLACEMENT => '*';

        return
                join '&',
                map {
                        my ( $name, $value ) = split /=/;
                        $name . "=" . REPLACEMENT x length( $value )
                }
                split /&/, $s;
}