| Probe-MachineInfo documentation | Contained in the Probe-MachineInfo distribution. |
Probe::MachineInfo::OS - OS Name
blah
blah
get()
Sagar R. Shah
| Probe-MachineInfo documentation | Contained in the Probe-MachineInfo distribution. |
package Probe::MachineInfo::OS; # pragmata use base qw(Probe::MachineInfo::Metric); use strict; use warnings; # Standard Perl Library and CPAN modules use English; use POSIX qw(uname); # # CLASS ATTRIBUTES # # # CONSTRUCTOR #
sub get { my ($self) = @_; return (uname)[0]; } 1;