Select Code to Download

$ 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

use SirBones::PerlMonks::Static_Data 'status_data';
is( status_data('dev2')->[2], 'UV_condition', '%status dev2' );

our @EXPORT_OK = ( 'status_data' );

our %status = (
  'dev1'  =>  [ qw(
...
    my ( $device ) = @_;
    return $status{$device};
}