File: HeaderOnly.pm

package info (click to toggle)
libdata-compactreadonly-perl 0.1.1-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 380 kB
  • sloc: perl: 990; sh: 3; makefile: 2
file content (16 lines) | stat: -rw-r--r-- 351 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
package Data::CompactReadonly::V0::Scalar::HeaderOnly;
our $VERSION = '0.1.0';

use warnings;
use strict;
use base 'Data::CompactReadonly::V0::Scalar';

sub _create {
    my($class, %args) = @_;
    my $fh = $args{fh};
    $class->_stash_already_seen(%args);
    print $fh $class->_type_byte_from_class();
    $class->_set_next_free_ptr(%args);
}

1;