Select Code to Download

sub seek {
    my $self = shift;
...
    $self->_init_bits();
    return $self->{_fh}->tell();
}

---------------------------- ------ ------ ------ ------ ------ ------
+ ------
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
---------------------------- ------ ------ ------ ------ ------ ------
+ ------