{   package Test::Floober;
    use base 'Test::Class';
    use Test::More;

    sub setup_fixture : Test( setup ) {
        my $self = shift;
        @$self{'foo', 'bar'} = ( $self->foo, $self->bar );
    }

    sub foo_and_bar_exist : Test(2) {
        my $self = shift;
        my ($foo, $bar) = @$self{'foo', 'bar'};
        ok( $foo, "foo is $foo");
        ok( $bar, "bar is $bar");
    }
    
    __PACKAGE__->SKIP_CLASS( 1 ); # prevent abstract class running
}

{   package Test::Floober::FirstFixture;
    use base 'Test::Floober';
    sub foo { 2 };
    sub bar { 5 };
}

{   package Test::Floober::SecondFixture;
    use base 'Test::Floober';
    sub foo { 'abcd' };
    sub bar { [ 2..5 ] };

}

Test::Class->runtests;