use base qw(Sys::Info::Base);
#...
sub foo {
my $self = shift;
my $data = $self->slurp("/foo/bar.txt");
}
Includes some common methods.
Sys::Info::Base - Base class for Sys::Info
Loads the module named with "CLASS".
Loads the specified class via "TEMPLATE":
my $class = __PACKAGE__->load_subclass('Sys::Info::Driver::%s::OS');
%s will be replaced with
"OSID". Apart from the template usage, it
is the same as "load_module".
Returns the trimmed version of "STRING".
Caches all contents of "FILE" into a scalar
and then returns it.
Caches all contents of "FILE" into an array
and then returns it.
Converts "DATE_STRING" into unix timestamp.
Returns a hashref built from "POSIX::uname".
Burak Gursoy <burak@cpan.org>
This software is copyright (c) 2006 by Burak Gursoy.
This is free software; you can redistribute it and/or modify it
under the same terms as the Perl 5 programming language system itself.