package Test::MUnit;

use strict;
use warnings FATAL => 'all';

use Moose;
use Moose::Exporter;
use Moose::Util qw(
    ensure_all_roles
    find_meta
);

use Test::MUnit::Meta::Test;

Moose::Exporter->setup_import_methods(
    with_meta => [ 'test' ],
    also => 'Moose'
);

sub test {
    my ($class, $name, $code) = @_;
    my $meta = find_meta($class);

    my $method = Test::MUnit::Meta::Test->wrap(
        $code,
        name => $name,
        package_name => $meta->name
    );
    $meta->add_method($name => $method);

}

1;