package PNI::Node::Perlop::Division;
use PNI::Node::Mo;
extends 'PNI::Node';
sub BUILD {
    my $self = shift;
    $self->label('/');
    $self->in(1);
    $self->in(2);
    $self->out;
}
sub task {
    my $self = shift;
    my $in1 = $self->in(1);
    my $in2 = $self->in(2);
    $in1->is_number and $in2->is_number or return;
    $in2->data
      ? $self->out->data( $in1->data / $in2->data )
      : $self->out->data(undef);
}
1