File Coverage

blib/lib/Digest/PasswordComposer.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	2	2	100.0
condition			n/a
subroutine	8	8	100.0
pod	4	4	100.0
total	36	36	100.0

package Digest::PasswordComposer;
{
  $Digest::PasswordComposer::VERSION = '0.1';
}
# ABSTRACT: Generate unique passwords for web sites.

use strict;
use warnings;

use Exporter;
our (@ISA, @EXPORT_OK);
@ISA = qw(Exporter);
@EXPORT_OK = qw(pwdcomposer);

use Digest::MD5 qw(md5_hex);




sub pwdcomposer {
  my ($domain, $pwd) = @_;
  return substr(md5_hex("$pwd:$domain"),0,8);
}


sub new {
  my ($class) = @_;

  bless { domain => '' }, $class;
}


sub domain {
  my $self = shift;
  if (@_) { $self->{domain} = shift }
  return $self->{domain};
}


sub password {
  my $self = shift;
  return pwdcomposer($self->{domain},shift);
}


1;


__END__