} else {
warn "There was an error trying to detect your terminal size: $@\n";
}
+ };
+
+ unless ($width) {
warn 'Trouble trying to detect your terminal size, looking at $ENV{COLUMNS}'."\n";
$width = $ENV{COLUMNS}
if exists($ENV{COLUMNS})
&& $ENV{COLUMNS} =~ m/^\d+$/;
- };
+ }
do {
warn "Cannot determine desired terminal width, using default of 80 columns\n";
into The Catalyst package to inject into (e.g. My::App)
component The component package to inject
- traits (Optional) ArrayRef of L<Moose::Role>s that the componet should consume.
+ traits (Optional) ArrayRef of L<Moose::Role>s that the component should consume.
as An optional moniker to use as the package name for the derived component
For example:
croak "Unable to build component package for \"$component_package\": $@";
Moose::Util::apply_all_roles($component_package, @{$given{traits}}) if $given{traits};
(my $file = "$component_package.pm") =~ s{::}{/}g;
- $INC{$file} ||= 1;
+ $INC{$file} ||= 1;
}
my $_setup_component = sub {