package status;

use strict;
use Data::Dumper;

my $order = {"new"=>1,"stage one"=>2,"stage two"=>3,"stage four"=>4,"end"=>5};

sub new{
	my($class, $status, $owner) = @_;
	
	my $this = {    'status'=>$status,
			'time'=>time(),
			'owner'=>$owner};
	
	bless($this, $class);

	return $this;
}

sub status{
	my($this, $status) = @_;
	
	if(defined $status){
		$this->{'status'} = $status;
	}
	return $this->{'status'};
}

sub status_code{
	my($this, $status) = @_;

	if (exists $order->{$this->{status}}) {
		return $order->{$this->{'status'}};
	}
	else{
		return undef;
	}
}	

sub time{
	my($this) = @_;
	return $this->{'time'};
}	

sub owner{
	my($this) = @_;
	return $this->{'owner'};
}	

1;