Select Code to Download

package Data::CryptRecord;
BEGIN {
...
    print "Exit fail set_engine (" . scalar $self->list_engines . ")\n
+";
    return -1;
}

(not shown, at the end of the CTOR)
Blessed List(1)
...
Exit OK set_engine (0)
after set_list (1)
(This is another list_engines called later in the program)

export PERLDB_OPTS='TTY=/dev/pts/2'
perl -d ./myprg.pl