package Bmap;

use strict;
use warnings;

use Exporter qw/ import /;

our @EXPORT = qw/bmap bnext blast bbail/;

sub bnext() {
    no warnings 'exiting';
    next;
}

sub blast() {
    no warnings 'exiting';
    last;
}

sub bbail() {
    goto BBAIL;
}

sub bmap(&@) {
    my $f = shift; 
    my @return_value;
    for ( @_ ) {
        my @iteration_results = $f->();
        push @return_value, @iteration_results;
    }
    return @return_value;
    BBAIL: return ();
}

1;