$ 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

##</code><code>##

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

##</code><code>##

our @EXPORT_OK = ( 'status_data' );

##</code><code>##

our %status = (
  'dev1'  =>  [ qw(
    enabled
    crit_fault
    warning_fault
  )  ],
                    
  'dev2'  =>  [ qw(
    power_on
    OV_condition
    UV_condition
    phase_fault
  )  ],
);
sub status_data {
    my ( $device ) = @_;
    return $status{$device};
}