| /usr/local/perl/lib/site_perl/5.8.5/Class/MakeMethods/Template/StructBuiltin.pm |
Class::MakeMethods::Template::StructBuiltin
use Class::MakeMethods::Template::StructBuiltin (
-TargetClass => 'MyStat',
builtin_isa => [
'-{new_function}'=>'stat',
qw/ dev ino mode nlink /
]
);
This class generates a wrapper around some builtin function, storing the results in the object and providing a by-name interface.
Takes a (core) function name, and a arrayref of return position names (we will call it pos_list). Creates:
Example Usage:
package Stat;
use Class::MakeMethods::Template::StructBuiltin
builtin_isa => [ '-{new_function}'=>'stat', qw/ dev ino mode nlink / ],
package main;
my $file = "$ENV{HOME}/.template";
my $s = Stat->new($file);
print "File $file has ", $s->nlink, " links\n";
Note that (a) the new method does not check the return value of the function called (in the above example, if $file does not exist, you will silently get an empty object), and (b) if you really want the above example, see the core File::stat module. But you get the idea, I hope.
| /usr/local/perl/lib/site_perl/5.8.5/Class/MakeMethods/Template/StructBuiltin.pm |