dnsmanagerv1/app/bdd/admin.pm

package app::bdd::admin;
use Moose;
extends 'app::bdd::lambda';

# ($success) activate_zone($domain)
sub activate_zone {
    my ($self, $domain) = @_; 
}

# ($success) delete_zone($file_path)
sub delete_zone {
    my ($self, $domain) = @_;
}

# $success delete_domain
sub delete_domain {
    my ($self, $domain) = @_;
    my $sth;

    $sth = $self->dbh->prepare('delete from domain where domain=?');
    unless ( $sth->execute($domain) ) {
        $sth->finish();
        return 0;
    }

    $sth->finish();
    # delete the domain from our domains
    @{ $self->domains } = grep { $_ ne $domain } @{ $self->domains };
    return 1;
}


1;