Changeset 9582

Timestamp:

12/09/09 19:05:07 (9 months ago)

Author:

garu

Message:

missing update for fix r9576 of Cat plugin

Files:

• trunk/Padre-Plugin-Catalyst/lib/Padre/Plugin/Catalyst/Util.pm (modified) (1 diff)

trunk/Padre-Plugin-Catalyst/lib/Padre/Plugin/Catalyst/Util.pm

@@ -46 +46 @@
 }
 
+# returns true if given filename (looks like) is inside a
+# Catalyst project
+sub in_catalyst_project {
+    require File::Spec;
+    my $filename = shift or return;
+
+    my $project_dir = Padre::Util::get_project_dir($filename);
+    
+    foreach my $dir ( qw(lib root script t) ) {
+        return unless -d File::Spec->catdir( $project_dir, $dir );
+    }
+    return 1;
+}
 
 #TODO: maybe this function (or some mutation of it)