use
strict;
use
warnings;
sub
new {
my
(
$class
,
$curve_name
) =
@_
;
if
(
$curve_name
) {
return
$class
->SUPER::new(
"This library does not support ECDSA curves that use Characteristic-2 fields, like “$curve_name”."
, {
curve_name
=>
$curve_name
} );
}
return
$class
->SUPER::new(
"This library does not support ECDSA curves that use Characteristic-2 fields."
);
}
1;