package Bio::GMOD::Blast::Graph::MyMath; BEGIN { $Bio::GMOD::Blast::Graph::MyMath::AUTHORITY = 'cpan:RBUELS'; } BEGIN { $Bio::GMOD::Blast::Graph::MyMath::VERSION = '0.06'; } ##################################################################### # # Cared for by Shuai Weng # # Originally created by John Slenk # # You may distribute this module under the same terms as perl itself #----------------------------------------------------------------- require Exporter; @ISA = qw( Exporter ); @EXPORT_OK = qw( max round floor ceil ); sub max { my( $a, $b ) = @_; return( ($a > $b) ? $a : $b ); } sub round { my( $float ) = shift; return( int($float+0.5) ); } sub floor { my( $float ) = shift; return( int($float) ); } sub ceil { my( $float ) = shift; return( int($float+0.5) ); } 1; __END__ =pod =encoding utf-8 =head1 NAME Bio::GMOD::Blast::Graph::MyMath =head1 AUTHORS =over 4 =item * Shuai Weng =item * John Slenk =item * Robert Buels =item * Jonathan "Duke" Leto =back =head1 COPYRIGHT AND LICENSE This software is Copyright (c) 2011 by The Board of Trustees of Leland Stanford Junior University. This is free software, licensed under: The Artistic License 1.0 =cut