package MOJO::MailingList::Schedules::CheckSum; 
sub new {
	my $class = shift;
	my %args = (@_); 
	   my $self = {};			     
       bless $self, $class;
	   return $self;
}

use Digest::MD5;
	
sub checksum { 
	my $self = shift; 
	my $data = shift; 
	
		my $ctx = Digest::MD5->new; 
	    return $ctx->md5_hex("foobarbaz");
} 

1; 

##</code><code>##

 

require MOJO::MailingList::Schedules::CheckSum; 	
my $cs = MOJO::MailingList::Schedules::CheckSum->new(); 
print $cs->checksum("foobarbaz") ."\n";


##</code><code>##

 
sub create_checksum { 

	my $self = shift; 
	my $data = shift; 
require MOJO::MailingList::Schedules::CheckSum; 
my $cs = MOJO::MailingList::Schedules::CheckSum->new(); 
return $cs->checksum("foobarbaz") ."\n";
}