use strict;
use warnings;
use diagnostics;
use LFSR;
 
my $nbits = 127;
my $t = new LFSR($nbits); # Inherited constructor
print ref($t),"\n";       # Shows it is a Bit::Vector, not an LFSR
 
# More proof that $t is a Bit::Vector
print $t->isa('Bit::Vector'),"\n";
print $t->isa('LFSR'),"\n";
 
# This line:
# bless $t, "LFSR";
# Causes this error:
#  'Modification of a read-only value attempted'