File Coverage

blib/lib/App/bif/drop/topic.pm

Criterion	Covered	Total	%
statement	12	23	52.1
branch	0	2	0.0
condition			n/a
subroutine	4	5	80.0
pod	1	1	100.0
total	17	31	54.8

package App::bif::drop::topic;
use strict;
use warnings;
use Bif::Mo;

our $VERSION = '0.1.5_6';
extends 'App::bif';

sub run {
    my $self = shift;
    my $opts = $self->opts;
    my $dbw  = $self->dbw;
    my $info = $self->get_node( $opts->{id}, 'topic' );

    if ( !$opts->{force} ) {
        print "Nothing dropped (missing --force, -f)\n";
        return $self->ok('DropNoForce');
    }

    my $uuid = substr( $info->{uuid}, 0, 8 );

    $dbw->txn(
        sub {
            $self->start_work(
                start         => time,
                start_comment => "drop topic $info->{id} <$uuid>",
                billable      => 0,
                save          => 1,
            );

            # TODO: copy existing work_deltas rows into work_buffers
            # with NULL node_id so that the work activity is not lost.
            # Perhaps a new --no-work-buffer option or similar to
            # disable that behaviour.
            $dbw->xdo(
                delete_from => 'topics',
                where       => { id => $info->{id} },
            );

            print "Topic dropped: $info->{id} <$uuid>\n";

            $self->stop_work(
                stop    => time,
                restore => 1,
            );
        }
    );

    return $self->ok('Drop'. ucfirst($info->{tkind}));
}

1;
__END__