1## name Basic passing
2## failures 0
3## cut
4
5use UNIVERSAL::can;
6require UNIVERSAL::can;
7$foo->can($funcname);
8
9#-----------------------------------------------------------------------------
10
11## name Basic failure
12## failures 2
13## cut
14
15can($foo, $funcname);
16UNIVERSAL::can($foo, $funcname);
17
18#-----------------------------------------------------------------------------
19
20# Local Variables:
21#   mode: cperl
22#   cperl-indent-level: 4
23#   fill-column: 78
24#   indent-tabs-mode: nil
25#   c-indentation-style: bsd
26# End:
27# ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :
28