File Coverage

blib/lib/Metabrik/Convert/Number.pm

Criterion	Covered	Total	%
statement	9	22	40.9
branch	0	8	0.0
condition	0	3	0.0
subroutine	3	6	50.0
pod	1	3	33.3
total	13	42	30.9

#
# $Id$
#
# convert::number Brik
#
package Metabrik::Convert::Number;
use strict;
use warnings;

use base qw(Metabrik);

sub brik_properties {
   return {
      revision => '$Revision$',
      tags => [ qw(unstable) ],
      author => 'GomoR ',
      license => 'http://opensource.org/licenses/BSD-3-Clause',
      commands => {
         to_hex => [ qw(int_number) ],
         to_int => [ qw(hex_number) ],
      },
   };
}

sub to_hex {
   my $self = shift;
   my ($int) = @_;

   $self->brik_help_run_undef_arg('to_hex', $int) or return;

   if ($int !~ /^[0-9]+/) {
      return $self->log->error("to_hex: invalid format for int [$int]");
   }

   return sprintf("0x%x", $int);
}

sub to_int {
   my $self = shift;
   my ($hex) = @_;

   $self->brik_help_run_undef_arg('to_int', $hex) or return;

   if ($hex !~ /^[0-9a-f]+$/i && $hex !~ /^0x[0-9a-f]+$/i) {
      return $self->log->error("to_int: invalid format for hex [$hex]");
   }

   return sprintf("%d", hex($hex));
}

1;

__END__