Sub::DeferredPartial::Op::Nullary - Nullary operator (constant).

Sub-DeferredPartial documentation

Contained in the Sub-DeferredPartial distribution.

Index

NAME
AUTHOR
COPYRIGHT

Code Index:

package Sub::DeferredPartial::Op::Nullary
- new
- Apply
- Eval
- Free
- Describe
EOF

NAME

Sub::DeferredPartial::Op::Nullary - Nullary operator (constant).

AUTHOR

Steffen Goeldner <sgoeldner@cpan.org>

COPYRIGHT

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Sub-DeferredPartial documentation

Contained in the Sub-DeferredPartial distribution.

package Sub::DeferredPartial::Op::Nullary;

our $VERSION = '0.01';

use Sub::DeferredPartial(); @ISA = 'Sub::DeferredPartial';
use Carp;

# -----------------------------------------------------------------------------
sub new
# -----------------------------------------------------------------------------
{
  my $class = shift;
  my $Op    = shift;

  bless { Op => $Op } => $class;
}
# -----------------------------------------------------------------------------
sub Apply
# -----------------------------------------------------------------------------
{
  my $self = shift;

  confess 'Apply not possible';
}
# -----------------------------------------------------------------------------
sub Eval
# -----------------------------------------------------------------------------
{
  my $self = shift;

  return $self->{Op};
}
# -----------------------------------------------------------------------------
sub Free
# -----------------------------------------------------------------------------
{
  my $self = shift;

  return {};
}
# -----------------------------------------------------------------------------
sub Describe
# -----------------------------------------------------------------------------
{
  my $self = shift;

  return "( $self->{Op} )";
}
# -----------------------------------------------------------------------------
1;