if(  is_blacklisted($source,$dest,$acct,$parent,$optout)  ) {

##</code><code>##

sub is_listed {
    my( $self, $source, $color, @lists ) = @_;
    croak ...
        if  $color !~ /^(black|white)\z/;
    $color .= "list";
    for my $list (  @lists  ) {
        next    # Let caller may pass in $parent even if empty
            if  ! $list;
        if(  $self->lookup($color,$list,$source)  ) {
            $self->verbose("Found $source on $list $color");
            if(  $color eq "blacklist"  ) {
                $self->increment_reject_count($source);
            }
        }
    }
}

##</code><code>##

    my $is_blacklisted = App::Blacklist->is_blacklisted(
        $source, $dest, $acct, $parent, $optout,
    );
    if(  $is_blacklisted  ) {
        # Next line used to be in $self->is_blacklisted():
        $self->set_was_blacklisted();
        $self->reject();
        return;
    }

##</code><code>##

    $item->save();

##</code><code>##

    $item->save() if $item->is_dirty();

##</code><code>##

    $musket->insert( $powder );
    $musket->insert( $ball );
    $musket->tamp();
    $musket->replace_cap( $cap )
        if  $musket->get_cap()->is_expended();
    $musket->aim( $target );
    $musket->pull_trigger();
# vs
    $pistol->shoot( $target );
    $pistol->shoot( $target );