Spider Boardman <spider@orb.nashua.nh.us>
Spiros Denaxas <s.denaxas@gmail.com>
Sreeji K Das <sreeji_k@yahoo.com>
+Stanislaw Pusep <stas@sysd.org>
Stas Bekman <stas@stason.org>
Steffen Müller <smueller@cpan.org>
Steffen Schwigon <ss5@renormalist.net>
map { (my $__ = uc) =~ y/.//d; $__ } @{$BundleRanges{$_}};
my $name = $feature{$_};
my $NAME = uc $name;
- if ($last && $first eq 'DEFAULT') { # ‘>= DEFAULT’ warns
+ if ($last && $first eq 'DEFAULT') { # '>= DEFAULT' warns
print $h <<EOI;
#define FEATURE_$NAME\_IS_ENABLED \\
( \\
Internals::SvREADONLY($h{b},0);
$h{b} =~ y/ia/ao/;
is __PACKAGE__, 'main',
- 'turning off a cow’s readonliness did not affect sharers of the same PV';
+ 'turning off a cow\'s readonliness did not affect sharers of the same PV';
&Internals::SvREADONLY(\!0, 0);
eval { ${\!0} = 7 };
=pod
+=encoding UTF-8
+
From the parrot test t/pmc/object-meths.t
ଅ ᛒ ଅ ऍ
=pod
+=encoding UTF-8
+
This example is taken from the inheritance graph of DBIx::Class::Coレ in DBIx::Class v0.07002:
(No ASCII art this time, this graph is insane)
# There should be no A::B isarev entry.
i"A::B" => qw [], 'assigning to two superclasses at the same time';
ok !foo->isa("A::B"),
- "A class must not inherit from its superclass’s former name";
+ "A class must not inherit from its superclass's former name";
# undeffing globs
@alpha::ISA = 'beta';
=pod
+=encoding UTF-8
+
example taken from: L<http://www.opendylan.org/books/drm/Method_Dispatch>
옵젳Ṯ
=pod
+=encoding UTF-8
+
example taken from: L<http://www.opendylan.org/books/drm/Method_Dispatch>
옵젳Ṯ
};
};
$s1->();
- undef &$s1; # frees $s2’s prototype, causing the $s3 proto to have its
+ undef &$s1; # frees $s2's prototype, causing the $s3 proto to have its
# CvOUTSIDE point to $s1
::is $s2->()(), 3, 'cloning closure proto whose CvOUTSIDE has changed';
}
package main;
CORE::__DATA__
I wandered lonely as a cloud
-That floats on high o’er vales and hills,
+That floats on high o'er vales and hills,
And all at once I saw a crowd,
A host of golden daffodils!
Beside the lake, beneath the trees,
BEGIN { *baz:: = *bar::; *bar:: = *foo:: }
# The name "bar" no langer refers to the same package
}
- undef &foo; # so freeing the op does not remove it from the stash’s list
+ undef &foo; # so freeing the op does not remove it from the stash\'s list
$_ = "";
push @_, ($_) x 10000; # and its memory is scribbled over
reset; # so reset on the original package tries to reset an invalid op
::is *$globref, "*rile::tat",
'globs stringify the same way when stashes are moved';
::is ref $obj, "rile",
- 'ref() returns the same thing when an object’s stash is moved';
+ 'ref() returns the same thing when an object\'s stash is moved';
::like "$obj", qr "^rile=ARRAY\(0x[\da-f]+\)\z",
'objects stringify the same way when their stashes are moved';
::is eval '__PACKAGE__', 'rile',
::is *$globref, "*rile::tat",
'globs stringify the same way when stashes are detached';
::is ref $obj, "rile",
- 'ref() returns the same thing when an object’s stash is detached';
+ 'ref() returns the same thing when an object\'s stash is detached';
::like "$obj", qr "^rile=ARRAY\(0x[\da-f]+\)\z",
'objects stringify the same way when their stashes are detached';
::is eval '__PACKAGE__', 'rile',
tie @a, "Tie::StdArray"; # now @a is tied
$#a = 20000; # and FETCHSIZE/AvFILL will now return a big number
$a[10000] = "crumpets\n";
- $_ = "$_[0]"; # but defelems don’t expect tied arrays and try to read
+ $_ = "$_[0]"; # but defelems don't expect tied arrays and try to read
# AvARRAY[10000], which crashes
}->($a[10000]);
print