IMPLEMENT A CLASS

This will implement a class at the namespace provided via the -implement argument. The class must not already be loaded. Once complete the real class will be prevented from loading until you call undefine() on the control object.

    use Mock::Quick::Class;
    my $control = Mock::Quick::Class->new(
        -implement => 'My::Package',
        # Insert a generic new() method (blessed hash)
        -with_new => 1,
        # Inheritance
        -subclass => 'Some::Class',
        # Can also do
        -subclass => [ 'Class::A', 'Class::B' ],
        # generic get/set attribute methods.
        -attributes => [ qw/a b c d/ ],
        # Method that simply returns a value.
        simple => 'value',
        # Custom method.
        method => sub { ... },
    );
    my $obj = $control->package->new;
    # OR
    my $obj = My::Package->new;
    # Override a method
    $control->override( foo => sub { ... });
    # Restore it to the original
    $control->restore( 'foo' );
    # Remove the namespace we created, which would allow the real thing to load
    # in a require or use statement.
    $control->undefine();

You can also use the 'implement' method instead of new:

    use Mock::Quick::Class;
    my $control = Mock::Quick::Class->implement(
        'Some::Package',
        %args
    );

ANONYMOUS MOCKED CLASS

This is if you just need to generate a class where the package name does not matter. This is done when the -takeover and -implement arguments are both omitted.

    use Mock::Quick::Class;
    my $control = Mock::Quick::Class->new(
        # Insert a generic new() method (blessed hash)
        -with_new => 1,
        # Inheritance
        -subclass => 'Some::Class',
        # Can also do
        -subclass => [ 'Class::A', 'Class::B' ],
        # generic get/set attribute methods.
        -attributes => [ qw/a b c d/ ],
        # Method that simply returns a value.
        simple => 'value',
        # Custom method.
        method => sub { ... },
    );
    my $obj = $control->package->new;
    # Override a method
    $control->override( foo => sub { ... });
    # Restore it to the original
    $control->restore( 'foo' );
    # Remove the anonymous namespace we created.
    $control->undefine();

TAKING OVER EXISTING/LOADED CLASSES

    use Mock::Quick::Class;
    my $control = Mock::Quick::Class->takeover( 'Some::Package' );
    # Override a method
    $control->override( foo => sub { ... });
    # Restore it to the original
    $control->restore( 'foo' );
    # Destroy the control object and completely restore the original class
    # Some::Package.
    $control = undef;

You can also do this through new()

    use Mock::Quick::Class;
    my $control = Mock::Quick::Class->new(
        -takeover => 'Some::Package',
        %overrides
    );