package PNI::Node::Perlvar::Basetime;
use strict;
use base 'PNI::Node';

sub init {
    my $node = shift;

    my $out = $node->add_output('out');

    $out->set_data($^T);

    return 1;
}

sub task { return 1; }

1;
__END__

=head1 NAME

PNI::Node::Perlvar::Basetime - PNI node to access the Perl C<$^T> variable

=head1 INPUTS

=over 4

=back

=head1 OUTPUTS

=over 4

=item out

=back

=cut