#!/usr/bin/perl

use strict;
use warnings;

use lib "./t/lib";

use Test::More tests => 1;
use Test::Run::Trap::Obj;

package MyPersonClass;

use Moose;

has 'name' => (is => "rw", isa => "Str");
has 'favourite_dish' => (is => "rw", isa => "Str");

sub print_info
{
    my $self = shift;

    print "<<My name is " . $self->name() . " and I like " . $self->favourite_dish(). ">>\n";
}

package main;

{
    my $got = Test::Run::Trap::Obj->trap_run({
            class => "MyPersonClass",
            args =>
            [
                name => "Sophie",
                favourite_dish => "Apples",
            ],
            run_func => "print_info",
        });

    # TEST
    $got->field_like("stdout",
        qr{\Q<<My name is Sophie and I like Apples>>\E},
        "Testing setting run_func() to something.",
    );
}