package Maypole::View::Base;
-use Class::C3;
use File::Spec;
use UNIVERSAL::moniker;
use strict;
$root = [ $root ];
}
my @output = ();
+ my $i = 0;
foreach my $path (@$root) {
push(@output,
(
&& File::Spec->catdir( $path, $r->model_class->table )
)
);
- push(@output, File::Spec->catdir( $path, "custom" ));
+ push(@output, File::Spec->catdir( $path, "custom" )) unless ($i);
push(@output, $path);
- push(@output, File::Spec->catdir( $path, "factory" ));
+ push(@output, File::Spec->catdir( $path, "factory" )) unless ($i);
+ $i = 1;
}
return grep( $_, @output);