Bioperl-guts: Re: Been hacking again

[Kate]

This is a multi-part message in MIME format.

------=_NextPart_000_000B_01BEE658.B4961DC0
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: 7bit

  I forgot to send this attachment.

                        Kate


------=_NextPart_000_000B_01BEE658.B4961DC0
Content-Type: application/octet-stream;
	name="AssertionFailure.pm"
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment;
	filename="AssertionFailure.pm"

# AssertionFailure.pm
#
#
# MODIFICATION NOTES: See bottom of file.

# Copyright (c) 1999 Katharine Lindner
# This module is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.

package Bio::UnitTests::AssertionFailure;

require 5.003;

use Carp;
use Bio::UnitTests::AssertionFailure;
require Exporter;
@ISA         = qw( Exporter);
@EXPORT      = qw();
## POD-formatted documentation

=head1 NAME

Bio::UnitTests::AssertionFailure - bioperl test failure object

=head1 SYNOPSIS

=head2 Object Creation

 $assertion_failure = Bio::UnitTests::AssertionFailure->new();
=cut
=head2 new

 Title     : new
 Usage     : $assertion_failure = Bio::UnitTests::AssertionFailure->new();
 Function  : The constructor for this class, returns a new object.
 Example   : See usage
 Returns   : Bio::UnitTests::AssertionFailure
 Argument  :


=cut

#-----------------------------------------------------------------------



sub new()
{
    my ( $class, $message ) = @_;
    my $self = {};
    bless $self, ref( $class ) || $class;
    $self->{ 'message' } = $message;
    return $self;
}

=head2 print_message

 Title     : print_message
 Usage     :
 Function  : Print a failure message
           :
 Returns   :
 Argument  : None

=cut

sub print_message
{
    my $self = shift;




    print $self->{ 'message' };
    print "\n";
}

1;
__END__

------=_NextPart_000_000B_01BEE658.B4961DC0--

=========== Bioperl Project Mailing List Message Footer =======
Project URL: http://bio.perl.org
For info about how to (un)subscribe, where messages are archived, etc:
http://www.techfak.uni-bielefeld.de/bcd/Perl/Bio/vsns-bcd-perl-guts.html
====================================================================