Skip to content

Commit

Permalink
cpan/parent - Update to version 0.243
Browse files Browse the repository at this point in the history
0.243 2024-11-27
    . Reinstate test for apostrophe as package separator, as the package
      separator is allowed again
    . No code change, only tests have been amended

co-authored-by: Eric Herman <[email protected]>
co-authored-by: Philippe Bruhat (BooK) <[email protected]>
  • Loading branch information
3 people committed Dec 5, 2024
1 parent f177882 commit a3319b9
Show file tree
Hide file tree
Showing 3 changed files with 10 additions and 13 deletions.
4 changes: 2 additions & 2 deletions Porting/Maintainers.pl
Original file line number Diff line number Diff line change
Expand Up @@ -885,8 +885,8 @@ package Maintainers;
},

'parent' => {
'DISTRIBUTION' => 'CORION/parent-0.242.tar.gz',
'SYNCINFO' => 'jkeenan on Wed Aug 14 21:41:51 2024',
'DISTRIBUTION' => 'CORION/parent-0.243.tar.gz',
'SYNCINFO' => 'tib on Wed Dec 4 17:52:22 2024',
'FILES' => q[cpan/parent],
'EXCLUDED' => [
qr{^xt}
Expand Down
2 changes: 1 addition & 1 deletion cpan/parent/lib/parent.pm
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
package parent;
use strict;

our $VERSION = '0.242_001';
our $VERSION = '0.243';

sub import {
my $class = shift;
Expand Down
17 changes: 7 additions & 10 deletions cpan/parent/t/compile-time-file.t
Original file line number Diff line number Diff line change
Expand Up @@ -24,7 +24,7 @@ use lib 't/lib';

{
package Child3;
use if $] != 5.041_003, parent => "Dummy'Outside";
use parent "Dummy'Outside";
}

my $obj = {};
Expand All @@ -39,12 +39,9 @@ isa_ok $obj, 'Dummy::InlineChild';
can_ok $obj, 'exclaim';
is $obj->exclaim, "I CAN FROM Dummy::InlineChild", 'Inheritance is set up correctly for inlined classes';

SKIP:
{
skip "No ' in names in 5.041_003", 3 if $] == 5.041_003;
$obj = {};
bless $obj, 'Child3';
isa_ok $obj, 'Dummy::Outside';
can_ok $obj, 'exclaim';
is $obj->exclaim, "I CAN FROM Dummy::Outside", "Inheritance is set up correctly for classes inherited from via '";
}
$obj = {};
bless $obj, 'Child3';
isa_ok $obj, 'Dummy::Outside';
can_ok $obj, 'exclaim';
is $obj->exclaim, "I CAN FROM Dummy::Outside", "Inheritance is set up correctly for classes inherited from via '";

0 comments on commit a3319b9

Please sign in to comment.