Changeset 2909

Show
Ignore:
Timestamp:
05/10/05 01:30:14 (4 years ago)
Author:
Stevan
svk:copy_cache_prev:
4437
Message:

Perl::MetaClass? - fixing some of the example names

Location:
ext/Perl-MetaClass
Files:
2 modified

Legend:

Unmodified
Added
Removed

  • ext/Perl-MetaClass/lib/Perl/MetaClass.pm

    r2903 r2909  
    66 
    77use Perl::MetaProperty; 
    8 #use Perl::MetaMethod; 
    9 #use Perl::MetaAssoc; 
     8use Perl::MetaMethod; 
     9use Perl::MetaAssoc; 
    1010 
    1111sub Perl::MetaClass::new(Str $name) returns Str is export { 
    … …  
    113113=head1 SYNOPSIS 
    114114   
    115   my $superclass = Perl::MetaClass::new('Foo'); 
    116   my $class = Perl::MetaClass::new('Foo::Bar');   
     115  #         Package 
     116  #          | 
     117  #    +-----+----+ 
     118  #    |          | 
     119  #  Module      Role 
     120  #               | 
     121  #             Class 
    117122   
    118   $class.clsSuperClass($superclass); 
     123  my $package = Perl::MetaClass::new('Package'); 
     124  my $role = Perl::MetaClass::new('Role');   
     125  my $module = Perl::MetaClass::new('Module');     
     126   
     127  $role.clsSuperClass($package); 
     128  $module.clsSuperClass($package);   
     129   
     130  my $class = Perl::MetaClass::new('Class');   
     131  $class.clsSuperClass($role);   
    119132 
    120133=head1 DESCRIPTION 

  • ext/Perl-MetaClass/t/10_MetaClass.t

    r2903 r2909  
    1111# -------------------------------------------------------------- 
    1212# 
    13 #           Bar           <- Super Class 
     13#         Package        <- Super-MetaClass 
    1414#            | 
    15 #           Foo           <- Class 
     15#          Role          <- MetaClass 
    1616#            | 
    17 #    [ .prop1 .prop2 ]    <- Properties 
     17#    [ .prop1 .prop2 ]   <- Properties 
    1818#            | 
    19 #   [ method1 method2 ]   <- Methods 
     19#   [ method1 method2 ]  <- Methods 
    2020#            | 
    21 #      +-----+----+ 
    22 #      |          | 
    23 #   Foo::Bar   Bar::Baz   <- SubClasses 
     21#          Class         <- SubClasses 
    2422# 
    2523# -------------------------------------------------------------- 
    2624 
    27 my $class = Perl::MetaClass::new('Foo'); 
     25my $class = Perl::MetaClass::new('Role'); 
    2826 
    29 is($class.clsName(), 'Foo', '... we got the right class name'); 
     27is($class.clsName(), 'Role', '... we got the right class name'); 
    3028 
    3129# Super Class 
    3230 
    33 my $superclass = Perl::MetaClass::new('Bar'); 
     31my $superclass = Perl::MetaClass::new('Package'); 
    3432 
    3533is($class.clsSuper(), undef, '... we do not have a superclass'); 
    3634$class.clsSuper($superclass); 
    37 is($class.clsSuper().clsName(), 'Bar', '... we now have a superclass'); 
     35is($class.clsSuper().clsName(), 'Package', '... we now have a superclass'); 
    3836 
    3937# Sub Classes 
    … …  
    4442} 
    4543 
    46 my $subclass1 = Perl::MetaClass::new('Foo::Bar'); 
     44my $subclass1 = Perl::MetaClass::new('Class'); 
    4745$subclass1.clsSuper($class); 
    4846 
    … …  
    5149    is(+@subclasses, 1, '... we have 1 subclasses now'); 
    5250    is(@subclasses[0].clsName(), 'Foo::Bar', '... this is our first subclass'); 
    53 } 
    54  
    55 my $subclass2 = Perl::MetaClass::new('Bar::Baz'); 
    56 $subclass2.clsSuper($class); 
    57  
    58 { 
    59     my @subclasses = $class.clsSubClasses(); 
    60     is(+@subclasses, 2, '... we have 2 subclasses now'); 
    61     is(@subclasses[0].clsName(), 'Foo::Bar', '... this is our first subclass'); 
    62     is(@subclasses[1].clsName(), 'Bar::Baz', '... this is our second subclass');     
    6351} 
    6452