Anonymous

package WikiEditor;

use strict;

sub new {
	my($proto) = shift;
	my($WikiUrl) = shift;
	my($class) = ref($proto) || $proto;
	my($self) = {};

	$self->{WikiUrl} = $WikiUrl;

	print "Blessing new WikiEditor $class with $WikiUrl\r\n";

	bless($self, $class);
}

sub set_wikiurl {
	my $self = shift;
	my $WikiUrl = shift;

	print "Changing WikiUrl to $WikiUrl on $self\r\n";

	$self->{WikiUrl} = $WikiUrl;
}

sub get_wikiurl {
	my $self = shift;
	my $url = $self->{WikiUrl};

	print "Returning Wiki Url of $url from $self\r\n";	

	return $url;
}