package Foo;

#use strict;

use Class;

class {
    attr qw( foo bar );
    isa 'Foo::Base';

    method floozle =>
        signature (Int, Int),
        body {
            my ($v1, $v2) = @_;

            $self->foo( $v1 );
            return $self->get_bar( $v2 );
        };
};

package main;

my $obj = Foo->new;
$foo->set_foo( 3 );
$foo->floozle( 9, 5 );

# These croak
$foo->floozle()
$foo->floozle( 9, 'a' );