1#!/usr/bin/perl -w 2 3use strict; 4use warnings; 5 6package Foo; 7 8use Test::More "no_plan"; 9use Method::Signatures; 10 11method foo( 12 $arg 13) 14{ 15 return $arg 16} 17 18is( Foo->foo(23), 23 ); 19