#!/usr/bin/perl
use warnings;
use strict;

use Test::More tests => 1;
use My::SimpleChild;

my $s = 'My::SimpleChild'->new({ a => 2, b => 3 });
is $s->frob, 5, 'frobs';