diff options
author | Peter J. Acklam <pjacklam@online.no> | 2011-01-06 23:10:00 -0800 |
---|---|---|
committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2011-01-07 11:15:09 +0000 |
commit | be75734f0fbc19c2d5a722e5590cfd6cf13bbd35 (patch) | |
tree | f93a9039feb56ee9e52bf04b22d4bc0be0860d83 | |
parent | 8c2265fd54037aa4c0f7ae20b23eb70e62c281c5 (diff) | |
download | perl-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>
-rw-r--r-- | cpan/Object-Accessor/lib/Object/Accessor.pm | 12 | ||||
-rw-r--r-- | cpan/Object-Accessor/t/00_Object-Accessor.t | 2 |
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 .= "@_" }; |