Acme-Array-MaxSize

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

Revision history for Acme-Array-MaxSize

0.04	2022/06/01
        Fix various doc links.

0.03    2016/01/14
        'parent' added to dependencies.

0.02    2016/01/10
        Doc fix.

0.01    2016/01/09
        First version, released on an unsuspecting world.

META.json  view on Meta::CPAN

            "Test::More" : "0"
         }
      },
      "configure" : {
         "requires" : {
            "ExtUtils::MakeMaker" : "0"
         }
      },
      "runtime" : {
         "requires" : {
            "parent" : "0",
            "perl" : "5.006"
         }
      }
   },
   "provides" : {
      "Acme::Array::MaxSize" : {
         "file" : "lib/Acme/Array/MaxSize.pm",
         "version" : "0.03"
      }
   },

META.yml  view on Meta::CPAN

name: Acme-Array-MaxSize
no_index:
  directory:
    - t
    - inc
provides:
  Acme::Array::MaxSize:
    file: lib/Acme/Array/MaxSize.pm
    version: '0.03'
requires:
  parent: '0'
  perl: '5.006'
resources:
  repository: https://github.com/choroba/Acme-Array-MaxSize
version: '0.04'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'

Makefile.PL  view on Meta::CPAN

    LICENSE          => 'artistic_2',
    PL_FILES         => {},
    MIN_PERL_VERSION => 5.006,
    CONFIGURE_REQUIRES => {
        'ExtUtils::MakeMaker' => 0,
    },
    BUILD_REQUIRES => {
        'Test::More' => 0,
    },
    PREREQ_PM => {
        parent => 0,
    },
    META_MERGE => { resources
        => { repository => 'https://github.com/choroba/Acme-Array-MaxSize' },
             provides => { 'Acme::Array::MaxSize' => {
                                 file => 'lib/Acme/Array/MaxSize.pm',
                                 version => $VERSION,
                             },
                         },
    },
    macro => { TARFLAGS => '--format=ustar -cvf' },

lib/Acme/Array/MaxSize.pm  view on Meta::CPAN

package Acme::Array::MaxSize;

use 5.006;
use strict;
use warnings;

use parent 'Tie::Array';
use Carp;

my %max_size;
my $last_index = sub { $max_size{+shift} - 1 };


sub TIEARRAY {
    my ($class, $max_size) = @_;
    my $self = bless [], $class;
    $max_size{$self} = $max_size;