in reply to Re^2: Simple Crypt::CBC Sample?
in thread Simple Crypt::CBC Sample?
A look at the source code shows it may be doing a require:
unless (ref $cipher) { # munge the class name if no object passed $cipher = $cipher=~/^Crypt::/ ? $cipher : "Crypt::$cipher"; $cipher->can('encrypt') or eval "require $cipher; 1" or croak "C +ouldn't load $cipher: $@"; # some crypt modules use the class Crypt::, and others don't $cipher =~ s/^Crypt::// unless $cipher->can('keysize'); }
|
---|
In Section
Seekers of Perl Wisdom