Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP

Comparing changes

Choose two branches to see what’s changed or to start a new pull request. If you need to, you can also compare across forks.

Open a pull request

Create a new pull request by comparing changes across two branches. If you need to, you can also compare across forks.
base fork: ivanwills/App-Usefull
base: ba1799080d
...
head fork: ivanwills/App-Usefull
compare: 5bf3c12dd9
  • 4 commits
  • 7 files changed
  • 0 commit comments
  • 1 contributor
View
8 bin/blame-line
@@ -30,7 +30,7 @@ my %option = (
help => 0,
VERSION => 0,
);
-sub run($);
+sub run;
if ( !@ARGV ) {
pod2usage( -verbose => 1 );
@@ -41,7 +41,6 @@ exit 0;
sub main {
-
Getopt::Long::Configure('bundling');
GetOptions(
\%option,
@@ -90,11 +89,12 @@ sub main {
return;
}
-sub run($) {
+sub run {
my ($cmd) = @_;
+ my $result;
print "$cmd\n" if $option{test} || $option{verbose};
- my $result = `$cmd` if !$option{test};
+ $result = `$cmd` if !$option{test};
return $result;
}
View
2  bin/char2line
@@ -88,7 +88,7 @@ __DATA__
=head1 NAME
-char2line - Converts charictor position to line position for a file
+char2line - Converts character position to line position for a file
=head1 VERSION
View
15 bin/cmdaliaser
@@ -268,13 +268,13 @@ would be C<svn.conf>
=item command
-The name of the executable to run, can be overwridden in each aliased sub command
+The name of the executable to run, can be overwritten in each aliased sub command
=item pager
Allows you to set the pager to be used, if set to 'yes' then the $PAGER
environment variable will be used, if it is set to 'no' then using a pager will
-be disabled (useful for globally turing pager on but turing it off for specific
+be disabled (useful for globally turning pager on but turning it off for specific
sub commands). C<page> can be overridden in each aliased command.
=item <alias I<alias>>
@@ -320,12 +320,12 @@ $ eg process
The value of C<pre_perl> is evaled before the command is run. You can access
@ARGV this way but changing it's values wont have any effect on the executed
-command. The result of the perl code is used to determine if the commmand
-should contiune running ie if the result is true execution should continue,
-if it's false execution will be stopped. This behaviour can be used in a
+command. The result of the perl code is used to determine if the command
+should continue running ie if the result is true execution should continue,
+if it's false execution will be stopped. This behavior can be used in a
similar manor to GIT's commit hooks.
-When specifying the value of C<pre_perl> you can use HEREDOCS (which sldo will
+When specifying the value of C<pre_perl> you can use HEREDOCS (which will
work for any command)
eg
@@ -368,6 +368,9 @@ $ cat data
The value of C<post_perl> is eval()ed after the sub command is run
+=back
+
+=back
=head1 SUBROUTINES/METHODS
View
2  bin/incsearch
@@ -197,7 +197,7 @@ Ivan Wills - (ivan.wills@gmail.com)
=head1 LICENSE AND COPYRIGHT
-Copyright (c) 2012 Optus (1 Lyon Park Rd, Macquarie Park, NSW, Australia).
+Copyright (c) 2012 Ivan Wills (14 Mullion Close Hornsby Heights).
All rights reserved.
This module is free software; you can redistribute it and/or modify it under
View
4 bin/v
@@ -63,7 +63,7 @@ sub main {
# do stuff here
create_tags();
- my @optioins = @ARGV ? @ARGV : ('perl');
+ my @options = @ARGV ? @ARGV : ('perl');
my @files;
for my $file ( @options ) {
push @files
@@ -77,7 +77,7 @@ sub main {
: $file eq 'js' ? open_js()
: $file eq 'db' ? open_database()
: $file eq 'all' ? ( open_perl(), open_templates(), open_database() )
- : $type;
+ : $file;
}
die "Could not find any files!\n" if !@files;
View
6 t/pod.t
@@ -3,11 +3,13 @@
use strict;
use warnings;
use Test::More;
+use Path::Class;
-plan skip_all => 'Have to work out how to test pod of bin files';
# Ensure a recent version of Test::Pod
my $min_tp = 1.22;
eval "use Test::Pod $min_tp";
plan skip_all => "Test::Pod $min_tp required for testing POD" if $@;
-all_pod_files_ok();
+my @poddirs = -d file($0)->parent->subdir('../blib') ? qw/ blib / : qw/ lib bin /;
+all_pod_files_ok( all_pod_files( @poddirs ) );
+
View
6 t/spelling.t
@@ -65,5 +65,11 @@ add_stopwords(qw/
url
vims
Wynter
+ mssh
+ ssh
+ GIT's
+ HEREDOCS
+ evaled
+ ie
/);
all_pod_files_spelling_ok();

No commit comments for this range

Something went wrong with that request. Please try again.