#!/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 \$") }