File Coverage

blib/lib/App/bif/update.pm

Criterion	Covered	Total	%
statement	15	17	88.2
branch	0	6	0.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	21	29	72.4

package App::bif::update;
use strict;
use warnings;
use Bif::Mo;
use OptArgs 'class_optargs';

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

sub run {
    my $self = shift;
    my $opts = $self->opts;
    my $info = $self->get_node( $self->uuid2id( $opts->{id} ) );

    my ( $class, $newopts ) = class_optargs(
        'App::bif',
        'update',
        $info->{kind},
        $info->{id},
        $opts->{status} ? $opts->{status} : (),
        {
            $opts->{message} ? ( message => $opts->{message} ) : (),
            $opts->{title}   ? ( title   => $opts->{title} )   : (),
        },
    );

    return $self->dispatch( $class, opts => $newopts );
}

1;
__END__