HowTo: possible solution to compare two bioseq objects [perl,bioperl,prototype,compare]

compare_bioseqs.pl

#!/usr/bin/env perl                                                                                               
use Modern::Perl;

{
  package BioSeq;
  use Moose;
  extends 'Bio::Seq';
  sub compare {
    my ( $self, $other ) = @_;
    return 1 if $self->seq eq $other->seq;
    return 1 if $self->seq eq $other->revcom->seq;
    return;
  }
}

die "usage: perl $0 <one> <two>\n" unless @ARGV == 2;

my $one = BioSeq->new( -seq => shift );
my $two = BioSeq->new( -seq => shift );

say 'Sequences ' . ( $one->compare($two) ? '' : 'do not ' ) . 'match';

compare_bioseqs.t

#!/usr/bin/env perl
use Modern::Perl;
use Test::Most;

{
  package BioSeq;
  use Moose;
  extends 'Bio::Seq';
  sub compare {
    my ( $self, $other ) = @_;

    return 1 if $self->seq eq $other->seq;
    return 1 if $self->seq eq $other->revcom->seq;

    return;
  }
}

ok my $seq = BioSeq->new( -seq => 'acgtgca' ), 'created the BioSeq';
ok my $rev = BioSeq->new( -seq => 'tgcacgt' ), 'created the BioSeq->revcom';

is $seq->seq, 'acgtgca', 'has the right sequence';
is $rev->seq, 'tgcacgt', 'has the right sequence';

ok $seq->compare( $rev ), 'compare works';

done_testing();