File Coverage

blib/lib/Data/Sofu/Undefined.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	2	4	50.0
condition			n/a
subroutine	6	6	100.0
pod	4	4	100.0
total	34	36	94.4

###############################################################################
#Undefined.pm
#Last Change: 2009-28-01
#Copyright (c) 2009 Marc-Seabstian "Maluku" Lucksch
#Version 0.3
####################
#This file is part of the sofu.pm project, a parser library for an all-purpose
#ASCII file format. More information can be found on the project web site
#at http://sofu.sourceforge.net/ .
#
#sofu.pm is published under the terms of the MIT license, which basically means
#"Do with it whatever you want". For more information, see the license.txt
#file that should be enclosed with libsofu distributions. A copy of the license
#is (at the time of this writing) also available at
#http://www.opensource.org/licenses/mit-license.php .
###############################################################################

=head1 NAME

Data::Sofu::Undefined - A Sofu non type

=head1 DESCRIPTION

Provides a interface similar to the original SofuD (sofu.sf.net)

This Object is similar to Perl's undef .

It is nothing (not even a C) but it is still there (in Lists or Maps for example)


=head1 Synopsis

	require Data::Sofu::Undefined;
	require Data::Sofu::Map;
	my $u = Data::Sofu::Undefined->new();
	my $map = Data::Sofu::Map->new();
	$map->setAttribute("Nx",$u);
	$map->hasMap("Nx"); # Returns 0
	$map->hasValue("Nx"); # Returns 0
	$map->hasAttribute("Nx"); # Returns 1
	# It is also there in $map->each() and $map->next();

=head1 SYNTAX

This Module is pure OO, exports nothing

=cut


package Data::Sofu::Undefined;

use strict;
use warnings;
require Data::Sofu::Object;
require Data::Sofu::List;
our @ISA = qw/Data::Sofu::Object/;
our $VERSION="0.3";

=head1 METHODS

Also look at C for methods, cause Undefined inherits from it

=head2 new()

Creates a new C and returns it

	$val = Data::Sofu::Undefined->new();

=cut


sub new {
	my $self={};
	bless $self,shift;
	return Data::Sofu::Value(@_) if @_;
	return $self;
}

=head2 isDefined()

Returns false

=cut

sub isDefined {
	return 0;
}

=head2 stringify(LEVEL, TREE)

Returns the string representation of this Object.

Which is the string "UNDEF"

LEVEL and TREE are ignored.

=cut

sub stringify {
	my $self=shift;
	my $level=shift;
	my $tree=shift;
	return "Value = UNDEF".$self->stringComment()."\n" unless $level;
	return "UNDEF".$self->stringComment()."\n";
}

=head2 binarify (TREE, BDRIVER)

Returns a binary representation of this Object. Don't call this (will be called from packBinary() and writeBinary())

=cut

sub binarify {
	my $self=shift;
	my $tree=shift;
	my $bin=shift;
	my $str=$bin->packType(0);
	$str.=$self->packComment($bin);
	return $str;
}


=head1 BUGS

This still tests true when using:

	my $u=Data::Sofu::Undefined->new();
	if ($u) {
		#This will happen.
	}
	if ($u->isDefined()) {
		#This will not happen.
	}

=head1 SEE ALSO

L, L, L, L, L, L, L

=cut

1;