package PNI::Node::Perlfunc::Lc;
use PNI::Node::Mo;
extends 'PNI::Node';
sub BUILD {
    my $self = shift;
    $self->label('lc');
    $self->in;
    $self->out;
}
sub task {
    my $self = shift;
    my $in   = $self->in;
    my $out  = $self->out;
    $in->is_string or return $self->off;
    $out->data( lc( $in->data ) );
}
1