File Coverage

blib/lib/Device/CurrentCost/Constants.pm

Criterion	Covered	Total	%
statement	19	20	95.0
branch			n/a
condition			n/a
subroutine	5	6	83.3
pod	1	1	100.0
total	25	27	92.5

use strict;
use warnings;
package Device::CurrentCost::Constants;
$Device::CurrentCost::Constants::VERSION = '1.142240';
# ABSTRACT: Module to export constants for Current Cost devices


my %constants =
  (
   CURRENT_COST_CLASSIC => 0x1,
   CURRENT_COST_ENVY => 0x2,
  );
my %names =
  (
   $constants{CURRENT_COST_ENVY} => 'Envy',
   $constants{CURRENT_COST_CLASSIC} => 'Classic',
  );

sub import {
  no strict qw/refs/; ## no critic
  my $pkg = caller(0);
  foreach (keys %constants) {
    my $v = $constants{$_};
    *{$pkg.'::'.$_} = sub () { $v };
  }
  foreach (qw/current_cost_type_string/) {
    *{$pkg.'::'.$_} = \&{$_};
  }
}


sub current_cost_type_string {
  $names{$_[0]}
}

__END__