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

use Test::More tests => 1;

use My::Parent 'long';

my $p = 'My::Parent'->new( { a => 2, b => 3 } );
is $p->frobnicate, 5, 'frobnicates';