TCOD

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "Test::More" : "0",
            "Test::Pod" : "1.41"
         }
      },
      "runtime" : {
         "requires" : {
            "Encode" : "0",
            "FFI::C" : "0",
            "FFI::Platypus" : "0",
            "Import::Into" : "0",
            "Ref::Util" : "0",
            "Role::Tiny" : "0",
            "Sub::Util" : "1.40",
            "perl" : "5.013002"
         }
      },
      "test" : {
         "recommends" : {
            "CPAN::Meta" : "2.120900"
         },
         "requires" : {

META.yml  view on Meta::CPAN

    file: lib/TCOD.pm
    version: '0.009'
  TCOD::Tileset:
    file: lib/TCOD.pm
    version: '0.009'
requires:
  Encode: '0'
  FFI::C: '0'
  FFI::Platypus: '0'
  Import::Into: '0'
  Ref::Util: '0'
  Role::Tiny: '0'
  Sub::Util: '1.40'
  perl: '5.013002'
resources:
  bugtracker: https://github.com/jjatria/perl-tcod/issues
  repository: git://github.com/jjatria/perl-tcod.git
version: '0.009'
x_Dist_Zilla:
  perl:
    version: '5.034000'

Makefile.PL  view on Meta::CPAN

  },
  "DISTNAME" => "TCOD",
  "LICENSE" => "perl",
  "MIN_PERL_VERSION" => "5.013002",
  "NAME" => "TCOD",
  "PREREQ_PM" => {
    "Encode" => 0,
    "FFI::C" => 0,
    "FFI::Platypus" => 0,
    "Import::Into" => 0,
    "Ref::Util" => 0,
    "Role::Tiny" => 0,
    "Sub::Util" => "1.40"
  },
  "TEST_REQUIRES" => {
    "ExtUtils::MakeMaker" => 0,
    "File::Spec" => 0,
    "Test2::Suite" => 0,
    "Test::More" => 0
  },
  "VERSION" => "0.009",

Makefile.PL  view on Meta::CPAN

);


my %FallbackPrereqs = (
  "Encode" => 0,
  "ExtUtils::MakeMaker" => 0,
  "FFI::C" => 0,
  "FFI::Platypus" => 0,
  "File::Spec" => 0,
  "Import::Into" => 0,
  "Ref::Util" => 0,
  "Role::Tiny" => 0,
  "Sub::Util" => "1.40",
  "Test2::Suite" => 0,
  "Test::More" => 0
);


# BEGIN code inserted by Dist::Zilla::Plugin::FFI::Build
use FFI::Build::MM 0.83;
my $fbmm = FFI::Build::MM->new;

lib/TCOD.pm  view on Meta::CPAN

package TCOD;

use strict;
use warnings;

use Encode ();
use FFI::C;
use FFI::CheckLib ();
use FFI::Platypus 1.00;
use FFI::Platypus::Buffer ();
use Ref::Util;
use TCOD::SDL2;
use TCOD::Event;

sub import {
    use Import::Into;
    TCOD::Event->import::into( scalar caller );
}

our $VERSION = '0.009';

lib/TCOD.pm  view on Meta::CPAN

        int
        bool
    )] => TCOD_error => sub {
        my ( $xsub, $console, %args ) = @_;

        Carp::croak 'The title parameter is not supported' if exists $args{title};

        my $decoration = $args{decoration} // [ '┌', '─', '┐', '│', ' ', '│', '└', '─', '┘' ];

        $decoration = [ map ord, split //, $decoration ]
            unless Ref::Util::is_arrayref $decoration;

        Carp::croak 'Frame decoration must have a length of 9. It has a length of ' . @$decoration
            if @$decoration != 9;

        $xsub->(
            $console, @args{qw( x y width height )},
            $decoration,
            @args{qw( fg bg )},
            $args{bg_blend}  // TCOD::BKGND_SET,
            $args{clear}     // 1,

lib/TCOD/SDL2.pm  view on Meta::CPAN

package
    TCOD::SDL2;

use strict;
use warnings;

use Config;
use FFI::C;
use FFI::CheckLib ();
use FFI::Platypus 1.00;
use Ref::Util ();

my $enum;
BEGIN {
    $enum = sub {
        require constant;

        my %enums = @_;
        while ( my ( $name, $values ) = each %enums ) {
            my $const;

            if ( Ref::Util::is_arrayref $values ) {
                my $i = 0;
                for ( @$values ) {
                    my ( $k, $v ) = split '=', $_, 2;
                    $i = eval $v if defined $v;
                    $const->{$k} = $i++;
                }
            }
            elsif ( Ref::Util::is_hashref $values ) {
                $const = $values;
            }
            else  {
                die 'Unrecognised reference: ' . ref $values;
            }

            constant->import($const);

            my $variable = __PACKAGE__ . '::' . $name;
            no strict 'refs';

t/00-report-prereqs.dd  view on Meta::CPAN

                                      'Test::More' => '0',
                                      'Test::Pod' => '1.41'
                                    }
                    },
       'runtime' => {
                      'requires' => {
                                      'Encode' => '0',
                                      'FFI::C' => '0',
                                      'FFI::Platypus' => '0',
                                      'Import::Into' => '0',
                                      'Ref::Util' => '0',
                                      'Role::Tiny' => '0',
                                      'Sub::Util' => '1.40',
                                      'perl' => '5.013002'
                                    }
                    },
       'test' => {
                   'recommends' => {
                                     'CPAN::Meta' => '2.120900'
                                   },
                   'requires' => {