Current File : //kunden/usr/share/doc/perl-Sub-Identify/t/03proto.t

#!/usr/bin/perl

use Test::More tests => 6;
use Sub::Identify ':all';
for my $f (qw(
    sub_name
    stash_name
    sub_fullname
    get_code_info
    get_code_location
    is_sub_constant
)) {
    is(prototype($f), '$', "Prototype of $f is \$")
}