80 |
|
|
81 |
my $deps = Perly::Depends->parse( $code->source ); |
my $deps = Perly::Depends->parse( $code->source ); |
82 |
foreach my $module ( @{ $deps->{depends_on} } ) { |
foreach my $module ( @{ $deps->{depends_on} } ) { |
83 |
|
# FIXME this is got point to check if user is allowed to user module |
84 |
|
next if Jifty::Util->try_to_require( $module ); # skip modules which are available |
85 |
my $filename = $module . '.pm'; |
my $filename = $module . '.pm'; |
86 |
my $dep_code = Perly::Model::Code->new; |
my $dep_code = Perly::Model::Code->new; |
87 |
$dep_code->load_by_cols( name => $filename ); |
$dep_code->load_by_cols( name => $filename ); |