Intertangle-Yarn

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "Inline" : "0.67",
            "Inline::C" : "0.62"
         },
         "requires" : {
            "Alien::Graphene" : "0",
            "DynaLoader" : "0",
            "Env" : "0",
            "Glib::Object::Introspection" : "0",
            "Hash::Merge" : "0",
            "Intertangle::API::Glib" : "0",
            "Modern::Perl" : "0",
            "Module::Load" : "0",
            "Role::Tiny" : "0",
            "Role::Tiny::With" : "0",
            "Scalar::Util" : "0",
            "Type::Library" : "0.008",
            "Type::Utils" : "0",
            "Types::Common::Numeric" : "0",
            "Types::Standard" : "0",
            "overload" : "0",
            "perl" : "5.006"

META.yml  view on Meta::CPAN

recommends:
  Inline: '0.67'
  Inline::C: '0.62'
requires:
  Alien::Graphene: '0'
  DynaLoader: '0'
  Env: '0'
  Glib::Object::Introspection: '0'
  Hash::Merge: '0'
  Intertangle::API::Glib: '0'
  Modern::Perl: '0'
  Module::Load: '0'
  Role::Tiny: '0'
  Role::Tiny::With: '0'
  Scalar::Util: '0'
  Type::Library: '0.008'
  Type::Utils: '0'
  Types::Common::Numeric: '0'
  Types::Standard: '0'
  overload: '0'
  perl: '5.006'

Makefile.PL  view on Meta::CPAN

  "LICENSE" => "perl",
  "MIN_PERL_VERSION" => "5.006",
  "NAME" => "Intertangle::Yarn",
  "PREREQ_PM" => {
    "Alien::Graphene" => 0,
    "DynaLoader" => 0,
    "Env" => 0,
    "Glib::Object::Introspection" => 0,
    "Hash::Merge" => 0,
    "Intertangle::API::Glib" => 0,
    "Modern::Perl" => 0,
    "Module::Load" => 0,
    "Role::Tiny" => 0,
    "Role::Tiny::With" => 0,
    "Scalar::Util" => 0,
    "Type::Library" => "0.008",
    "Type::Utils" => 0,
    "Types::Common::Numeric" => 0,
    "Types::Standard" => 0,
    "overload" => 0
  },

Makefile.PL  view on Meta::CPAN

);


my %FallbackPrereqs = (
  "Alien::Graphene" => 0,
  "DynaLoader" => 0,
  "Env" => 0,
  "Glib::Object::Introspection" => 0,
  "Hash::Merge" => 0,
  "Intertangle::API::Glib" => 0,
  "Modern::Perl" => 0,
  "Module::Load" => 0,
  "Role::Tiny" => 0,
  "Role::Tiny::With" => 0,
  "Scalar::Util" => 0,
  "Test::Exception" => "0.43",
  "Test::Most" => 0,
  "Test::Requires" => 0,
  "Type::Library" => "0.008",
  "Type::Utils" => 0,
  "Types::Common::Numeric" => 0,

lib/Intertangle/Yarn.pm  view on Meta::CPAN

use Modern::Perl;
package Intertangle::Yarn;
# ABSTRACT: Geometry primitives for graphics
$Intertangle::Yarn::VERSION = '0.002';
use Intertangle::Yarn::Graphene;

1;

__END__

=pod

lib/Intertangle/Yarn/Graphene.pm  view on Meta::CPAN

use Modern::Perl;
package Intertangle::Yarn::Graphene;
# ABSTRACT: Load the Graphene graphic types library
$Intertangle::Yarn::Graphene::VERSION = '0.002';
use Glib::Object::Introspection;
use DynaLoader;

my $_GRAPHENE_BASENAME = 'Graphene';
my $_GRAPHENE_VERSION = '1.0';
my $_GRAPHENE_PACKAGE = __PACKAGE__;

lib/Intertangle/Yarn/Types.pm  view on Meta::CPAN

use Modern::Perl;
package Intertangle::Yarn::Types;
# ABSTRACT: Types for Yarn
$Intertangle::Yarn::Types::VERSION = '0.002';
use Type::Library 0.008 -base,
	-declare => [qw(
		Point
		Vec2
		Size
		AngleDegrees
		Rect

perlcritic.rc  view on Meta::CPAN

theme = ( core + pbp + security + maintenance ) * bugs
include = CodeLayout::ProhibitSpaceIndentation CodeLayout::ProhibitTrailingWhitespace CodeLayout::RequireConsistentNewlines CodeLayout::TabIndentSpaceAlign

[-Subroutines::ProhibitSubroutinePrototypes]

[TestingAndDebugging::RequireUseStrict]
equivalent_modules = Modern::Perl Moo Moo::Role Renard::Incunabula::Common::Setup

[TestingAndDebugging::RequireUseWarnings]
equivalent_modules = Modern::Perl Moo Moo::Role Renard::Incunabula::Common::Setup

# vim: ft=dosini

t/Intertangle/Yarn/Graphene.t  view on Meta::CPAN

#!/usr/bin/env perl

use Test::Most tests => 2;
use Modern::Perl;
use Module::Load;
use Intertangle::Yarn::Graphene;

subtest "Loaded Graphene" => sub {
	can_ok 'Intertangle::Yarn::Graphene::Point', qw(new distance);
};

subtest 'Access Graphene::Point using Inline::C' => sub {
	eval { load 'Inline::C' } or do {
		my $error = $@;

t/Intertangle/Yarn/Graphene/DataPrinterRole.t  view on Meta::CPAN

#!/usr/bin/env perl

use Test::Most tests => 2;
use Modern::Perl;

use Test::Requires {
	'Data::Printer' => '1.0.0',
};
use Intertangle::Yarn::Graphene;

subtest "Test DPR for Point" => sub {
	is np(Intertangle::Yarn::Graphene::Point->new( x => 2, y => 3 ), colored => 0 ),
		'(Intertangle::Yarn::Graphene::Point) { x:2, y:3 }';
};

t/Intertangle/Yarn/Graphene/Matrix.t  view on Meta::CPAN

#!/usr/bin/env perl

use Test::Most tests => 6;
use Modern::Perl;
use Intertangle::Yarn::Graphene;

subtest "Matrix stringify" => sub {
	my $m = Intertangle::Yarn::Graphene::Matrix->new;
	$m->init_from_float([ 0..15 ]);

	is "$m", <<EOF;
[
    0 1 2 3
    4 5 6 7

t/Intertangle/Yarn/Graphene/Point.t  view on Meta::CPAN

#!/usr/bin/env perl

use Test::Most tests => 5;
use Modern::Perl;
use Intertangle::Yarn::Graphene;

subtest "Create point" => sub {
	ok my $p = Intertangle::Yarn::Graphene::Point->new( x => 1, y => -0.5 ), 'create Point';
	cmp_deeply $p->x, num(1), 'x dimension';
	cmp_deeply $p->y, num(-0.5), 'y dimension';
};

subtest "Equality operator" => sub {
	my $p = Intertangle::Yarn::Graphene::Point->new( x => 1, y => -0.5 );

t/Intertangle/Yarn/Graphene/Size.t  view on Meta::CPAN

#!/usr/bin/env perl

use Test::Most tests => 2;
use Modern::Perl;
use Intertangle::Yarn::Graphene;

subtest "Size equality operator" => sub {
	my $s = Intertangle::Yarn::Graphene::Size->new( width => 10, height => 20 );

	is $s, [10, 20];
};

subtest "Size stringify" => sub {
	my $s = Intertangle::Yarn::Graphene::Size->new( width => 10, height => 20 );

t/Intertangle/Yarn/Graphene/Vec2.t  view on Meta::CPAN

#!/usr/bin/env perl

use Test::Most tests => 4;
use Modern::Perl;
use Intertangle::Yarn::Graphene;

subtest "Create Vec2" => sub {
	ok my $v = Intertangle::Yarn::Graphene::Vec2->new( x => 1, y => -0.5 ), 'create Vec2';
	cmp_deeply $v->x, num(1), 'x component';
	cmp_deeply $v->y, num(-0.5), 'y component';
};

subtest "Equality operator" => sub {
	my $v = Intertangle::Yarn::Graphene::Vec2->new( x => 1, y => -0.5 );