sub seek {
    my $self = shift;
    my $seek = shift;
    unless ($self->{_is_seekable}) {
        carp "FH is not seekable" if $DEBUG; 
        return 0;
    }

    $self->{_fh}->seek($seek) if defined $seek;
    $self->_init_bits();
    return $self->{_fh}->tell();
}

##</code><code>##

---------------------------- ------ ------ ------ ------ ------ ------ ------
File                           stmt   bran   cond    sub    pod   time  total
---------------------------- ------ ------ ------ ------ ------ ------ ------
blib/lib/File/Binary.pm        79.2   47.6   37.5   87.1   95.0  100.0   73.1
Total                          79.2   47.6   37.5   87.1   95.0  100.0   73.1
---------------------------- ------ ------ ------ ------ ------ ------ ------