Acpi-Class

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "perl" : "5.012",
            "strict" : "0",
            "warnings" : "0"
         }
      },
      "test" : {
         "requires" : {
            "FindBin" : "0",
            "List::Compare" : "0",
            "Test::More" : "0",
            "utf8" : "0"
         }
      }
   },
   "release_status" : "stable",
   "resources" : {
      "repository" : {
         "type" : "git",
         "url" : "git://github.com/mimosinnet/Acpi-Class.git",
         "web" : "https://github.com/mimosinnet/Acpi-Class"
      }

META.yml  view on Meta::CPAN

---
abstract: "Inspired in Acpi::Battery, this module gets the contents of the directory '/sys/class' in terms of 'classes' (ArrayRef of directories in /sys/class), 'devices' (ArrayRef of subdirectory in class) and 'attributes' (HashRef attributes => val...
author:
  - 'mimosinnet <mimosinet at cpan.org>'
build_requires:
  FindBin: 0
  List::Compare: 0
  Test::More: 0
  utf8: 0
configure_requires:
  ExtUtils::MakeMaker: 6.30
dynamic_config: 0
generated_by: 'Dist::Zilla version 4.300029, CPAN::Meta::Converter version 2.120921'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4
name: Acpi-Class
requires:

Makefile.PL  view on Meta::CPAN

my %WriteMakefileArgs = (
  "ABSTRACT" => "Inspired in Acpi::Battery, this module gets the contents of the directory '/sys/class' in terms of 'classes' (ArrayRef of directories in /sys/class), 'devices' (ArrayRef of subdirectory in class) and 'attributes' (HashRef attributes ...
  "AUTHOR" => "mimosinnet <mimosinet at cpan.org>",
  "BUILD_REQUIRES" => {
    "FindBin" => 0,
    "List::Compare" => 0,
    "Test::More" => 0,
    "utf8" => 0
  },
  "CONFIGURE_REQUIRES" => {
    "ExtUtils::MakeMaker" => "6.30"
  },
  "DISTNAME" => "Acpi-Class",
  "EXE_FILES" => [],
  "LICENSE" => "perl",
  "NAME" => "Acpi::Class",
  "PREREQ_PM" => {
    "Carp" => 0,

t/Acpi/Class/Devices.t  view on Meta::CPAN

#!/usr/bin/env perl 
use FindBin qw($Bin);
use lib "$Bin/../../../lib";
use strict;
use warnings;
use utf8;
use 5.010;
use Acpi::Class::Devices;
use List::Compare;
use Test::More tests => 1;

# Check that the elements of $dir are correctly read
my @dirs = qw( examples lib t);
my $devices = Acpi::Class::Devices->new( dir => $Bin, pattern => qr/\w/ )->devices;
my $comparison = List::Compare->new(\@dirs, $devices);
my $equivalent = $comparison->is_LequivalentR;