#!/usr/bin/perl -w

use strict;
use warnings;

{
    package MyClass;
    use Class::Contract;
    use test_func;

    contract {
        attr 'test';

        ctor 'new';
        impl {
            ${self->test} = test_me('within class');
        };
    };
};


package main;
use test_func;

test_me('in main');