package Message;

use strict;
use overload '""' => 'str', '0+' => 'num', 'bool' => 'bool', fallback => 1;

###############################################################################

sub new 
{ 
	my $class = shift; 
	my $num = shift;
	my $str = shift;
	my $bool = shift;
	
	my $data = {num => $num,
				str => $str,
				bool => $bool,
				data => [],
				};
	
	if ( ! defined $data->{bool} )
	{
		$data->{bool} = ( $data->{num} ? 1 : 0 );
	}
	
	bless $data, $class; 
	
	if ( @_ )
	{
		if ( ref $_[0] eq 'ARRAY' )
		{
			foreach my $element (@_)
			{
				$data->push($element);
			}
		}
		else
		{
			$data->push(@_);
		}
	}
	
	return $data;
}

###############################################################################

sub push
{
	my $self = shift;
	my $obj = shift;
	
	push @{$self->{data}},$obj;
}

###############################################################################

sub num 
{ 
	my $self = shift;
	return $self->{num};
}

###############################################################################

sub str
{ 
	my $self = shift;
	return $self->{str};
}

###############################################################################

sub bool
{
	my $self = shift;
	return $self->{bool};
}

###############################################################################

1;