#!/usr/bin/perl
use 5.010;
use strict;
use warnings;
use Crypt::CBC;

my $crypt = sub {
    my $val = shift;
    state %CB;
    my $cb = \%CB;
    
    if (!defined $cb->{cipher}) {
        say "Debug: erzeuge Objekt";
        $cb->{cipher} = Crypt::CBC->new(
            -key    => 'foobar',
            -cipher => 'Blowfish',
        );
    }
    if (defined $val) { return $cb->{cipher}->encrypt($val); }
};


say $crypt->('foo');
say $crypt->('bar');

use feature 'state';
my $crypt = sub {
    my $val = shift;
    state $cb;
    
    if (!defined $cb) {
        say "Debug: erzeuge Objekt";
        $cb = Crypt::CBC->new(
            -key    => 'foobar',
            -cipher => 'Blowfish',
        );
    }
    if (defined $val) { return $cb->encrypt($val); }
};

#!/usr/bin/perl
use strict;
use warnings;
use Crypt::CBC;
use feature 'state';

my $crypt = sub {
    state $c;
    if (!defined $c) {
        print "Debug: erzeuge Objekt\n";
        $c = Crypt::CBC->new(
            -key    => 'foobar',
            -cipher => 'Blowfish',
        );
    }
    return (defined $_[0] && $_[0] ne '' ? $c->encrypt($_[0]) : '');
};

print $crypt->('foo')."\n";
print $crypt->('bar')."\n";
print $crypt->('')."\n";
print $crypt->()."\n";