Help for this page

Select Code to Download


  1. or download this
    $ h2xs -A -B -C -X -n SirBones::PerlMonks::Static_Data
$ cd                  SirBones-PerlMonks-Static_Data
$ edit            lib/SirBones/PerlMonks/Static_Data.pm
$ edit              t/SirBones-PerlMonks-Static_Data.t
$ prove -Ilib       t/SirBones-PerlMonks-Static_Data.t
  2. or download this
    use SirBones::PerlMonks::Static_Data 'status_data';
is( status_data('dev2')->[2], 'UV_condition', '%status dev2' );
  3. or download this
    our @EXPORT_OK = ( 'status_data' );
  4. or download this
    our %status = (
  'dev1'  =>  [ qw(
...
    my ( $device ) = @_;
    return $status{$device};
}