Data-Bitfield

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

use warnings;

use Module::Build;

my $build = Module::Build->new(
   module_name => 'Data::Bitfield',
   configure_requires => {
      'Module::Build' => '0.4004', # test_requires
   },
   test_requires => {
      'Test::Fatal' => 0,
      'Test::More' => '0.88', # done_testing
   },
   license => 'perl',
   create_license => 1,
   create_readme  => 1,
);

$build->create_build_script;

META.json  view on Meta::CPAN

   },
   "name" : "Data-Bitfield",
   "prereqs" : {
      "configure" : {
         "requires" : {
            "Module::Build" : "0.4004"
         }
      },
      "test" : {
         "requires" : {
            "Test::Fatal" : "0",
            "Test::More" : "0.88"
         }
      }
   },
   "provides" : {
      "Data::Bitfield" : {
         "file" : "lib/Data/Bitfield.pm",
         "version" : "0.04"
      }
   },

META.yml  view on Meta::CPAN

---
abstract: 'manage data packed into bytes of multiple bit fields'
author:
  - 'Paul Evans <leonerd@leonerd.org.uk>'
build_requires:
  Test::Fatal: '0'
  Test::More: '0.88'
configure_requires:
  Module::Build: '0.4004'
dynamic_config: 1
generated_by: 'Module::Build version 0.4224, CPAN::Meta::Converter version 2.150010'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'
name: Data-Bitfield

t/01boolfield.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Test::More;
use Test::Fatal;

use Data::Bitfield qw( bitfield boolfield );

{
   bitfield { format => "bytes-LE" }, BYTES =>
      first  => boolfield(0),
      second => boolfield(1),
      third  => boolfield(2);

   is( sprintf( "%v02x", pack_BYTES( first => 1, third => 1 ) ), "05",

t/02intfield.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Test::More;
use Test::Fatal;

use Data::Bitfield qw( bitfield intfield signed_intfield );

{
   bitfield { format => "bytes-LE" }, BYTES =>
      first  => intfield(0,2),
      second => intfield(2,2),
      third  => intfield(4,4);

   is( sprintf( "%v02x", pack_BYTES( first => 1, third => 6 ) ), "61",

t/03enumfield.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Test::More;
use Test::Fatal;

use Data::Bitfield qw( bitfield enumfield );

{
   bitfield { format => "bytes-LE" }, BYTES =>
      first  => enumfield(0, qw( false true )),
      second => enumfield(2, qw( zero one two three ));

   is( sprintf( "%v02x", pack_BYTES( first => "true", second => "two" ) ), "09",
      'pack_BYTES' );

t/04constfield.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Test::More;
use Test::Fatal;

use Data::Bitfield qw( bitfield boolfield constfield );

# integer encoding
{
   bitfield { format => "bytes-LE" }, BYTES =>
      first  => boolfield(0),
      second => boolfield(1),
      constfield(2, 4, 0x9);