1PMFUNC(1) User Contributed Perl Documentation PMFUNC(1)
2
3
4
6 pmfunc - cat out a function from a module
7
9 Given a fully-qualified function, this program opens up the file and
10 attempts to cat out the source for that function.
11
13 $ pmfunc Cwd::getcwd
14 sub getcwd
15 {
16 abs_path('.');
17 }
18
20 Only subroutines that are defined in the normal fashion are seen, since
21 a simple pattern-match is what does the extraction. Those loaded other
22 ways, such as via AUTOLOAD, typeglob aliasing, or in an "eval", will
23 all necessarily be missed.
24
25 This is mostly here for people who are too lazy to type
26
27 sed '/^sub getcwd/,/}/p' `pmpath Cwd`
28 or
29 perl -ne 'print if /^sub\s+getcwd\b/ .. /}/' `pmpath Cwd`
30
34 Copyright (c) 1999 Tom Christiansen
35
36 This is free software. You may modify it and distribute it under
37 Perl's Artistic Licence. Modified versions must be clearly indicated.
38
39
40
41perl v5.8.8 2006-03-30 PMFUNC(1)