view release on metacpan or  search on metacpan

lib/AnyEvent/GnuPG.pm  view on Meta::CPAN

    my $proc = $self->_run_gnupg($cv);

    $proc->pipe( \$version );

    $proc->finish;

    $self->_end_gnupg(
        sub {
            if ( $version =~ m{\d(?:\.\d)*} ) {
                $cv->send( split m{\.} => $& );
            }
            else {
                $cv->croak(
                    "cannot obtain version number from string: '$version'");
            }
        }
    );

    $cv;
}