exodist

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
our $TBOUT;

BEGIN {
    if ( eval { require Test::Builder; 1 }) {
        my $Testout;
        open( $Testout, '>', \$TBOUT ) || die $!;

exodist

interface br1
{
        AdvSendAdvert on;
        AdvLinkMTU 1280;
        MaxRtrAdvInterval 300;
        prefix 2002:4b94:5e91:2::/16
        {
                AdvOnLink on;
                AdvAutonomous on;
        };

exodist

sub before_import {
    my ( $dest, $spec ) = @_;
       
    if ( $spec->config->{someoption} ) {
        $spec->exports->{foo} = [
            Exporter::Declare::Export::Sub->new(
                sub { ... }, 
                exported_by => __PACKAGE__,
            ), 
            {},

exodist

Each thread has it's own memory unit containing a stack and a heap.

Stack:
 * contains a region of memory that issues out pointers (called stack-handles)
 * can be pushed which marks the last used pointer in the region
 * can be popped resetting the pointer to the last pushed position
 * is a stack, so the pushed pointers are in a linked list, LIFO

Heap:
 * Has region of memory that issues a fixed-width structure with a data pointer and flags

exodist

package Foo;
use strict;
use warnings;
use Test::More;

BEGIN { $INC{'Foo.pm'} = __FILE__ }

sub import {
    my $class  = shift;
    my $caller = caller;

exodist

NUMBER OF FILES
BYTESTART NAMESTART
FNAMELENGTH Path/to/file1 BYTESTART BYTELENGTH
FNAMELENGTH Path/to/file2 BYTESTART BYTELENGTH
File1...
File2...
...

/*
Index entry count is numfiles / 25

exodist

IndexableArchiveVXXXX.XXXX
uint64 jump size
uint64 jump count
...long data...
(
 Checksum
 Data
)

...index index...

exodist

Role Composition:
 * Adopt all attributes of sub-roles, error on conflict
 * Adopt all requirements of sub-roles, except those met by this role.
 * Adopt all methods of sub-roles, add conflicts to required
 * Merge roles hash (squash config)

Type Composition:
 * Adopt all attributes of roles, error on conflict
 * For each role
  * bring in role methods, exclude those also listed as a requirement

exodist

package My::Thing;
use strict;

BEGIN {
    $INC{'My/Thing.pm'} = __FILE__;
}

sub import {
    my $caller = caller;
    eval <<"    EOT" || die $@;

exodist

package My::Thing;
use strict;

BEGIN {
    $INC{'My/Thing.pm'} = __FILE__;
}

sub import {
    my $class  = shift;
    my $caller = caller;