package LFSR;
 
use strict;
use warnings;
use diagnostics;
 
use Bit::Vector;
our @ISA = qw(Bit::Vector);
 

# This also causes an error at the bless statement,
# so I have it commented out.
=pod
sub new
{
  my ($class, $nbits)= @_;
  my $self= new Bit::Vector($nbits);
  bless $self, $class;
  return $self;
}
=cut
 
sub mine
{
  my $self= shift;
  my $class= ref($self) || $self;
  print "Hello\n";
}
 
1;