Name

Test::Moose::MockObjectCompile - A Module to help when testing compile time Moose

SYNOPSIS

use Test::Moose::MockObjectCompile;
use Test::More;

my $mock = Test::Moose::MockObjectCompile->new({package => 'Foo'});
$mock->roles([qw{Some::Role, Some::Other::Role}]);
$mock->mock('method1');

lives_ok {$mock->compile} 'Test that roles don't clash and required methods are there';

ATTRIBUTES

package

defines a package name for your package. this will be defined on init or an exception will be thrown.

roles

a list of roles to apply to your package.

extend

a list of Moose packages you want your package to extend

base

a package to use as a base (this is a non moose function and I'm not sure it's even needed so it may go away. Let me know if you want it.

METHODS

new

the constructor for a MockObjectCompile(r) it expects a hashref with the package key passed in to define the package name or it will throw an exception.

compile

compiles the module with the definition defined in your roles and extend attributes and whatever you told it to mock.

mock

mocks a method in your compiled Mock Moose Object. It expects a name for the method and an optional string with the code to define the method code you want to compile. It has to be a string and not a coderef because the string will be compiled into the module and adding the method after compile will not test the compile time work that moose does.

$mock->mock('method1', '{ push @stuff, $_[1];}');

NOTES

Some things to keep in mind are:

this module actually compiles your package this means that any subsequent compiles only modify the package they don't replace it. If you want to make sure you don't have stuff haning around from previouse compiles change the package or make a new instance with a different package name. This way you can be sure you start out with a fresh module namespace.

AUTHOR

Jeremy Wall <jeremy@marzhillstudios.com>

COPYRIGHT (C) Copyright 2007 Jeremy Wall <Jeremy@Marzhillstudios.com>

This program is free software you can redistribute it and/or modify it under the same terms as Perl itself.

See http://www.Perl.com/perl/misc/Artistic.html