use URI;
use Carp qw/croak/;
use Cwd;
+use String::RewritePrefix;
+use Moose::Util qw/find_meta/;
use namespace::clean;
=head1 DESCRIPTION
-Catalyst Utilities.
+Catalyst Utilities.
=head1 METHODS
sub class2appclass {
my $class = shift || '';
+
+ # Special move to deal with components which are anon classes.
+ # Specifically, CX::Component::Traits c072fb2
+ my $meta = find_meta($class);
+ if ($meta) {
+ while ($meta->is_anon_class) {
+ my @superclasses = $meta->superclasses;
+ return if scalar(@superclasses) > 1; # Fail silently, MI, can't deal..
+ $class = $superclasses[0];
+ $meta = find_meta($class);
+ }
+ }
+
my $appname = '';
if ( $class =~ /^(.+?)::([MVC]|Model|View|Controller)::.+$/ ) {
$appname = $1;
my ( $lefthash, $righthash ) = @_;
return $lefthash unless defined $righthash;
-
+
my %merged = %$lefthash;
for my $key ( keys %$righthash ) {
my $right_ref = ( ref $righthash->{ $key } || '' ) eq 'HASH';
$merged{ $key } = $righthash->{ $key };
}
}
-
+
return \%merged;
}
1) Install Term::Size::Any, or
-2) Export $COLUMNS from your shell.
+2) Export $COLUMNS from your shell.
(Warning to bash users: 'echo $COLUMNS' may be showing you the bash
-variable, not $ENV{COLUMNS}. 'export COLUMNS=$COLUMNS' and you should see
+variable, not $ENV{COLUMNS}. 'export COLUMNS=$COLUMNS' and you should see
that 'env' now lists COLUMNS.)
As last resort, default value of 80 chars will be used.
return $_term_width = $width;
}
+
+=head2 resolve_namespace
+
+Method which adds the namespace for plugins and actions.
+
+ __PACKAGE__->setup(qw(MyPlugin));
+
+ # will load Catalyst::Plugin::MyPlugin
+
+=cut
+
+
+sub resolve_namespace {
+ my $appnamespace = shift;
+ my $namespace = shift;
+ my @classes = @_;
+ return String::RewritePrefix->rewrite({
+ q[] => qq[${namespace}::],
+ q[+] => q[],
+ (defined $appnamespace
+ ? (q[~] => qq[${appnamespace}::])
+ : ()
+ ),
+ }, @classes);
+}
+
+
=head1 AUTHORS
Catalyst Contributors, see Catalyst.pm