package 
    HTMLWidget::TestLib;

use strict;
use warnings;

sub mock_query {
    my ( $self, $query ) = @_;
    
    return HTMLWidget::MockObject->new( $query );
}

####

package 
    HTMLWidget::MockObject;

use strict;
use warnings;

sub new {
    my ( $class, $query ) = @_;
    
    die "query must be a hashref"
        unless ref($query) eq 'HASH';
    
    return bless $query, $class;
}

sub param {
    my ( $self, $param, $value ) = @_;
    
    if ( @_ == 1 ) {
        return keys %$self;
    }
    elsif ( @_ == 3 ) {
        $self->{$param} = $value;
        return $self->{$param};
    }
    else {
        unless ( exists $self->{$param} ) {
            return wantarray ? () : undef;
        }
        if ( ref $self->{$param} eq 'ARRAY' ) {
            return (wantarray)
              ? @{ $self->{$param} }
              : $self->{$param}->[0];
        }
        else {
            return (wantarray)
              ? ( $self->{$param} )
              : $self->{$param};
        }
    }
} 

1;