Parent Directory | Revision Log | Patch
revision 112 by dpavlin, Sun Jul 13 16:54:13 2008 UTC | revision 125 by dpavlin, Mon Jul 14 23:12:07 2008 UTC | |
---|---|---|
# | Line 28 sub classes { | Line 28 sub classes { |
28 | ||
29 | sub package_path { | sub package_path { |
30 | my ( $self, $package ) = @_; | my ( $self, $package ) = @_; |
31 | die "can't find path for package $package" unless defined $package_path->{$package}; | $self->classes unless $package_path; |
32 | confess "can't find path for package $package" unless defined $package_path->{$package}; | |
33 | return $package_path->{$package}; | return $package_path->{$package}; |
34 | } | } |
35 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |