Changeset 240

Show
Ignore:
Timestamp:
09/03/01 09:46:36
Author:
miyagawa
Message:

use Test::More
fixed typo in message

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • Attribute-Protected/trunk/Changes

    r234 r240  
    11Revision history for Perl extension Attribute::Protected. 
    22 
     30.02  Mon Sep  3 09:46:17 JST 2001 
     4        - fixed typo in croaking message of Protected method. 
     5        - use Test::More for testing. 
     6         
    370.01  Tue Aug 28 06:06:12 2001 
    48        - original version; created by h2xs 1.21 with options 
  • Attribute-Protected/trunk/MANIFEST

    r234 r240  
    44README 
    55lib/Attribute/Protected.pm 
    6 t/00_compile.t 
    7 t/01_protected.t 
     6t/00_Protected.t 
  • Attribute-Protected/trunk/Makefile.PL

    r234 r240  
    77    'PREREQ_PM'         => { 
    88        Attribute::Handlers => 0.70, 
     9        Test::More          => 0, 
    910    }, # e.g., Module::Name => 1.1 
    1011    AUTHOR     => 'Tatsuhiko Miyagawa <miyagawa@bulknews.net>', 
  • Attribute-Protected/trunk/README

    r234 r240  
    66      use Attribute::Protected; 
    77 
    8       sub foo  :Public    { } 
    9       sub _bar :Private   { } 
    10       sub _baz :Protected { } 
     8      sub foo  : Public    { } 
     9      sub _bar : Private   { } 
     10      sub _baz : Protected { } 
    1111 
    1212      sub another { 
     
    4040ATTRIBUTES 
    4141    Public 
    42           sub foo :Public { } 
     42          sub foo : Public { } 
    4343 
    4444        just a mark. Can be called from everywhere. 
    4545 
    4646    Private 
    47           sub _bar :Private { } 
     47          sub _bar : Private { } 
    4848 
    4949        Can't be called from outside the class where it was declared. 
    5050 
    5151    Protected 
    52           sub _baz :Protected { } 
     52          sub _baz : Protected { } 
    5353 
    5454        Can be called from the class where it was declared or its derived 
     
    5858    like "foo() is a protected method of Foo!". 
    5959 
     60THOUGHT 
     61    *   attributes (public, private and proteced) should be lowercased? 
     62 
    6063AUTHOR 
    61     Tatsuhiko Miyagawa, <miyagawa@bulknews.net> 
     64    Tatsuhiko Miyagawa <miyagawa@bulknews.net> 
     65 
     66    This library is free software; you can redistribute it and/or modify it 
     67    under the same terms as Perl itself. 
    6268 
    6369SEE ALSO 
  • Attribute-Protected/trunk/lib/Attribute/Protected.pm

    r234 r240  
    55use warnings; 
    66 
    7 our $VERSION = '0.01'; 
     7our $VERSION = '0.02'; 
    88 
    99use Attribute::Handlers; 
     
    1616        unless (caller->isa($package)) { 
    1717            require Carp; 
    18             Carp::croak "$meth() is a preotected method of $package!"; 
     18            Carp::croak "$meth() is a protected method of $package!"; 
    1919        } 
    2020        goto &$referent; 
     
    114114=head1 THOUGHT 
    115115 
    116 =over
     116=over
    117117 
    118118=item *