Skip to content

Commit

Permalink
fixup! Removed Event::Inline's requirement for Inline::C
Browse files Browse the repository at this point in the history
  • Loading branch information
oodler577 committed Apr 29, 2021
1 parent 3c85016 commit b51e003
Show file tree
Hide file tree
Showing 3 changed files with 6 additions and 25 deletions.
5 changes: 0 additions & 5 deletions Changes
@@ -1,8 +1,3 @@
1.27 2021-04-28
- removed ill advised restriction on Event::Inline, used to
integrate 'with' Inline::* modules
- *no* version bump

1.27 2018-11-17
- only Zero(Polld) if not NULL (reported by @andk, thanks!)

Expand Down
2 changes: 1 addition & 1 deletion lib/Event.pm
Expand Up @@ -206,7 +206,7 @@ _load_watcher($_) for qw(idle io signal timer var);
# use Inline with => 'Event';
# note: return information for all values of $language
sub Inline {
my $class = shift;
my ($class, $language) = @_;
require Event::MakeMaker;
my $path = $Event::MakeMaker::installsitearch;
require Config;
Expand Down
24 changes: 5 additions & 19 deletions t/Inline.t
@@ -1,24 +1,10 @@
# watch -*-perl-*-

use strict;
use Test::More tests => 4;
use Test::More tests => 3;
use Event ();

require Config;
require Event::MakeMaker;

my $path = $Event::MakeMaker::installsitearch;
my $so = $Config::Config{so};

my $inline = {
INC => "-I $path/Event",
TYPEMAPS => "$path/Event/typemap",
MYEXTLIB => "$path/auto/Event/Event.$so",
AUTO_INCLUDE => '#include "EventAPI.h"',
BOOT => 'I_EVENT_API("Inline");',
};

is_deeply $inline, Event->Inline(q{C});
is_deeply $inline, Event->Inline(q{NotC});
is_deeply $inline, Event->Inline(q{});
is_deeply $inline, Event->Inline(undef);
my $expected = Event->Inline(q{C});
is q{HASH}, ref $expected, q{returns hash reference};
is_deeply $expected, Event->Inline(q{notC}, q{Non-'C' Inline will return same hasref as 'C'});
is_deeply $expected, Event->Inline(q{notC}, q{undef will return same hasref as 'C'});

0 comments on commit b51e003

Please sign in to comment.