summaryrefslogtreecommitdiff
path: root/cpan
diff options
context:
space:
mode:
authorPeter J. Acklam <pjacklam@online.no>2011-01-06 23:10:00 -0800
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>2011-01-07 11:15:09 +0000
commitbe75734f0fbc19c2d5a722e5590cfd6cf13bbd35 (patch)
treef93a9039feb56ee9e52bf04b22d4bc0be0860d83 /cpan
parent8c2265fd54037aa4c0f7ae20b23eb70e62c281c5 (diff)
downloadperl-be75734f0fbc19c2d5a722e5590cfd6cf13bbd35.tar.gz
Fix typos (spelling errors) in cpan/Object-Accessor/*.
# New Ticket Created by (Peter J. Acklam) # Please include the string: [perl #81842] # in the subject line of all future correspondence about this issue. # <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=81842 > Signed-off-by: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
Diffstat (limited to 'cpan')
-rw-r--r--cpan/Object-Accessor/lib/Object/Accessor.pm12
-rw-r--r--cpan/Object-Accessor/t/00_Object-Accessor.t2
2 files changed, 7 insertions, 7 deletions
diff --git a/cpan/Object-Accessor/lib/Object/Accessor.pm b/cpan/Object-Accessor/lib/Object/Accessor.pm
index 7166200af1..c943ee078e 100644
--- a/cpan/Object-Accessor/lib/Object/Accessor.pm
+++ b/cpan/Object-Accessor/lib/Object/Accessor.pm
@@ -59,7 +59,7 @@ Object::Accessor - interface to create per object accessors
$obj = My::Class->new; # create base object
$bool = $obj->mk_accessors('foo'); # create accessors, etc...
- ### make all attempted access to non-existant accessors fatal
+ ### make all attempted access to non-existent accessors fatal
### (defaults to false)
$Object::Accessor::FATAL = 1;
@@ -118,7 +118,7 @@ Any arguments given to C<new> are passed straight to C<mk_accessors>.
If you want to be able to assign to your accessors as if they
were C<lvalue>s, you should create your object in the
-C<Object::Acccessor::Lvalue> namespace instead. See the section
+C<Object::Accessor::Lvalue> namespace instead. See the section
on C<LVALUE ACCESSORS> below.
=cut
@@ -546,7 +546,7 @@ sub ___autoload {
=head2 $val = $self->___get( METHOD_NAME );
Method to directly access the value of the given accessor in the
-object. It circumvents all calls to allow checks, callbakcs, etc.
+object. It circumvents all calls to allow checks, callbacks, etc.
Use only if you C<Know What You Are Doing>! General usage for
this functionality would be in your own custom callbacks.
@@ -564,7 +564,7 @@ sub ___get {
=head2 $bool = $self->___set( METHOD_NAME => VALUE );
Method to directly set the value of the given accessor in the
-object. It circumvents all calls to allow checks, callbakcs, etc.
+object. It circumvents all calls to allow checks, callbacks, etc.
Use only if you C<Know What You Are Doing>! General usage for
this functionality would be in your own custom callbacks.
@@ -674,7 +674,7 @@ C<perl 5.8.x> feature. See perldoc L<perl58delta> for details.
=item * Allow handlers
Due to the nature of C<lvalue subs>, we never get access to the
-value you are assigning, so we can not check it againt your allow
+value you are assigning, so we can not check it against your allow
handler. Allow handlers are therefor unsupported under C<lvalue>
conditions.
@@ -772,7 +772,7 @@ See C<perldoc perlsub> for details.
=head2 $Object::Accessor::FATAL
-Set this variable to true to make all attempted access to non-existant
+Set this variable to true to make all attempted access to non-existent
accessors be fatal.
This defaults to C<false>.
diff --git a/cpan/Object-Accessor/t/00_Object-Accessor.t b/cpan/Object-Accessor/t/00_Object-Accessor.t
index e0f2f13b62..bc207c24e3 100644
--- a/cpan/Object-Accessor/t/00_Object-Accessor.t
+++ b/cpan/Object-Accessor/t/00_Object-Accessor.t
@@ -23,7 +23,7 @@ $Object::Accessor::DEBUG = $Object::Accessor::DEBUG = 1 if @ARGV;
isa_ok( $Object, $Class );
}
-### check non existant accessor
+### check non existent accessor
{ my $warning;
local $SIG{__WARN__} = sub { $warning .= "@_" };