File Coverage

blib/lib/Set/Scalar/Null.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	2	2	100.0
condition			n/a
subroutine	11	11	100.0
pod	0	4	0.0
total	39	43	90.7

package Set::Scalar::Null;

use strict;
local $^W = 1;

use vars qw($VERSION @ISA);

$VERSION = '1.29';
@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 );
}

=pod

=head1 NAME

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

=head1 SYNOPSIS

B.

=head1 DESCRIPTION

B
If you want documentation see L.

=head1 AUTHOR

Jarkko Hietaniemi

=cut

1;