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

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

my $ch = 'My::DelegChild'->new(a => 2, b => 3);
is $ch->frob, 5, 'frobs';