File Coverage

blib/lib/WWW/Live/Auth/SecretKey.pm

Criterion	Covered	Total	%
statement	6	24	25.0
branch			n/a
condition	0	3	0.0
subroutine	2	7	28.5
pod	0	4	0.0
total	8	38	21.0

package WWW::Live::Auth::SecretKey;

use strict;
use warnings;

require Digest::SHA;

sub new {
  my ( $proto, $raw ) = @_;
  my $class = ref $proto || $proto;

  my $self = bless {
    'string' => $raw,
  }, $class;
  $self->_process( $raw );

  return $self;
}

sub as_string {
  my $self = shift;
  return $self->{'string'};
}

sub encryption_key {
  my $self = shift;
  return $self->{'encryption_key'};
}

sub signature_key {
  my $self = shift;
  return $self->{'signature_key'};
}

sub _process {
  my ( $self, $secret_key ) = @_;
  my $encryption_key = Digest::SHA::sha256( "ENCRYPTION$secret_key" );
  my $signature_key  = Digest::SHA::sha256( "SIGNATURE$secret_key" );
  $encryption_key = substr( $encryption_key, 0, 16);
  $signature_key  = substr( $signature_key, 0, 16);
  $self->{'encryption_key'} = $encryption_key;
  $self->{'signature_key'}  = $signature_key;
}

1;
__END__