File Coverage

blib/lib/Business/BR/Ids/Common.pm

Criterion	Covered	Total	%
statement	36	42	85.7
branch	9	12	75.0
condition	8	12	66.6
subroutine	7	8	87.5
pod			n/a
total	60	74	81.0

package Business::BR::Ids::Common;

use 5;
use strict;
use warnings;

require Exporter;

our @ISA = qw(Exporter);
our @EXPORT_OK = qw( _dot _dot_10 _canon_i _canon_id );

our $VERSION = '0.00_18';
$VERSION = eval $VERSION;

sub _dot {
  my $a = shift;
  my $b = shift;
  warn "arguments a and b should have the same length"
    unless (@$a==@$b);
  my $s = 0;
  for ( my $i=0; $i<@$a; $i++ ) {
    my ($x, $y) = ($a->[$i], $b->[$i]);
    if ($x && $y) {
       $s += $x*$y;
    }
  }
  return $s;
}

sub _dot_10 {
  my $a = shift;
  my $b = shift;
  warn "arguments a and b should have the same length"
    unless (@$a==@$b);
  my $s = 0;
  for ( my $i=0; $i<@$a; $i++ ) {
    my ($x, $y) = ($a->[$i], $b->[$i]);
    if ( $x && $y ) {
       my $xy = $x*$y;
       $s += $_ for split('', $xy); # sum each digit of the product
    }
  }
  return $s;
}

use Scalar::Util qw(looks_like_number);

# usage: _canon_i($piece, size => 12)
sub _canon_i {
  my $piece = shift;
  my %options = @_;
  if (looks_like_number($piece) && int($piece)==$piece) {
      return sprintf('%0*s', $options{size}, $piece)
  } else {
      $piece =~ s/\D//g;
      return $piece;
  }
}

sub _canon_id {
  my $piece = shift;
  my %options = @_;
  if (looks_like_number($piece) && int($piece)==$piece) {
      return sprintf('%0*s', $options{size}, $piece)
  } else {
      $piece =~ s/[\W_]//g;
      return $piece;
  }
}

1;

__END__