BEGIN {
use FindBin;
use lib $FindBin::Bin . "/myapp/lib";
}
use utf8;
use Test::More;
{
# testing the method method
# this method is designed to ....
package MyApp;
use Validation::Class;
fld name => {
required => 1
};
mth print_name => {
input => ['name'],
using => sub {
my ($self) = @_;
return "my name is " . $self->name if $self->name;
}
};
package main;
my $class = "MyApp";
my $self = $class->new();
ok $class eq ref $self, "$class instantiated";
ok !$self->print_name, "no name printed because the name field is null";
$self->name("echo");
ok "my name is echo" eq $self->print_name, "name printed as intended";
}
done_testing;