Set::Scalar::Null - internal class for Set::Scalar

Set-Scalar documentation Contained in the Set-Scalar distribution.

Index

Code Index:

NAME

Top

Set::Scalar::Null - internal class for Set::Scalar

SYNOPSIS

Top

Internal use only.

DESCRIPTION

Top

This is not the module you are looking for. If you want documentation see Set::Scalar.

AUTHOR

Top

Jarkko Hietaniemi <jhi@iki.fi>

Set-Scalar documentation Contained in the Set-Scalar distribution. 
package Set::Scalar::Null;

use strict;
local $^W = 1;

use vars qw(@ISA);

@ISA = qw(Set::Scalar::Base Set::Scalar::Virtual);
use Set::Scalar::Virtual;
use Set::Scalar::Base;

use overload
    'neg'	=> \&_complement_overload;

sub SET_FORMAT        { "(%s)" }

sub _new_hook {
    my $self     = shift;
    my $universe = $_[0]->[0];
    
    $self->universe( $universe );
}

sub universe {
    my $self = shift;

    $self->{'universe'} = shift if @_;

    return $self->{'universe'};
}

sub elements {
    return ();
}

sub size {
    return 0;
}

sub _complement_overload {
    my $self = shift;

    return Set::Scalar->new( $self->universe->elements );
}


1;