Mock::Quick::Object3pm

    use Mock::Quick::Object;
    use Mock::Quick::Method;
    my $obj = Mock::Quick::Object->new(
        foo => 'bar',            # define attribute
        do_it => qmeth { ... },  # define method
        ...
    );
    is( $obj->foo, 'bar' );
    $obj->foo( 'baz' );
    is( $obj->foo, 'baz' );
    $obj->do_it();
    # define the new attribute automatically
    $obj->bar( 'xxx' );
    # define a new method on the fly
    $obj->baz( Mock::Quick::Method->new( sub { ... });
    # remove an attribute or method
    $obj->baz( \$Mock::Quick::Util::CLEAR );