/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 |