view release on metacpan or  search on metacpan

bin/ebx  view on Meta::CPAN

        foreach my $item (@{$cat->[1]}) {
            print "  $item->[1]\n";
        }
    }
}

# this is a wrapper for distro manipulation methods
#_______________________________________
sub admin {
    my $edb     = shift;
    local @ARGV = @_;

    my %sub_for_admin_command = (
        addDistro    => undef,
        cloneDistro  => undef,
        updateDistro => undef,
    );

    my $c = shift(@ARGV) || pod2usage(-verbose => 0);
    my $sub;