File Coverage

blib/lib/Net/DNS/SEC/Private.pm

Criterion	Covered	Total	%
statement	61	61	100.0
branch	14	14	100.0
condition			n/a
subroutine	14	14	100.0
pod	1	1	100.0
total	90	90	100.0

package Net::DNS::SEC::Private;

use strict;
use warnings;

our $VERSION = (qw$Id: Private.pm 1853 2021-10-11 10:40:59Z willem $)[2];


=head1 NAME

Net::DNS::SEC::Private - DNSSEC Private key object


=head1 SYNOPSIS

    use Net::DNS::SEC::Private;

    $private = Net::DNS::SEC::Private->new( $keypath );

    $private = Net::DNS::SEC::Private->new(
	'algorithm'  => '13',
	'keytag'     => '26512',
	'privatekey' => 'h/mc+iq9VDUbNAjQgi8S8JzlEX29IALchwJmNM3QYKk=',
	'signame'    => 'example.com.'
	);


=head1 DESCRIPTION

Class representing private keys as read from a keyfile generated by BIND
dnssec-keygen. The class is written to be used only in the context of the
Net::DNS::RR::RRSIG create method. This class is not designed to interact
with any other system.

=cut


use integer;
use Carp;
use File::Spec;
use IO::File;

use constant SYMLINK => defined(&CORE::readlink);		# Except Win32, VMS, RISC OS


sub new { return scalar(@_) > 2 ? &_new_params : &_new_keyfile }

sub _new_keyfile {
	my ( $class, $file ) = @_;

	my ($keypath) = SYMLINK ? grep( {$_} readlink($file), $file ) : $file;
	my ( $vol, $dir, $name ) = File::Spec->splitpath($keypath);

	# Format something like: 'Kbla.foo.+001+12345.private' as created by BIND dnssec-keygen.
	croak "$file does not appear to be a BIND private key"
			unless $name =~ /^K([^+]+)\+(\d+)\+(\d+)\.private$/;
	my @identifier = ( signame => $1, algorithm => 0 + $2, keytag => 0 + $3 );

	my $handle = IO::File->new( $file, '<' ) or croak qq("$file": $!);

	my @content;
	local $_;
	while (<$handle>) {
		chomp;
		next if /^$/;
		next if /^\s*[;]/;
		s/\(.+\)//;
		my ( $name, $value ) = split;
		push @content, $name, $value;
	}

	return $class->_new_params( @content, @identifier );
}


sub _new_params {
	my ( $class, %parameter ) = @_;
	my $hashref = {};

	while ( my ( $name, $value ) = each %parameter ) {
		$name =~ tr/A-Za-z0-9\000-\377/a-za-z0-9/d;
		$hashref->{$name} = $value;
	}

	my $self = bless sub { $hashref->{shift()} }, $class;
	croak 'no algorithm specified' unless $self->algorithm;
	croak 'no signame specified'   unless $self->signame;
	return $self;
}


our $AUTOLOAD;

sub AUTOLOAD {				## Default method
	my ($self) = @_;

	my ($attribute) = $AUTOLOAD =~ m/::([^:]*)$/;
	$attribute =~ tr/A-Za-z0-9\000-\377/a-za-z0-9/d;

	# Build a method in the class
	no strict 'refs';		## no critic ProhibitNoStrict
	*{$AUTOLOAD} = sub { &{shift()}($attribute) };

	# and jump to it
	goto &{$AUTOLOAD};
}


1;
__END__