view release on metacpan or search on metacpan
xt/boilerplate.t view on Meta::CPAN
use warnings;
use Test::More;
plan tests => 3;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
xt/boilerplate.t view on Meta::CPAN
}
}
sub module_boilerplate_ok {
my ($module) = @_;
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
);
}
TODO: {
local $TODO = "Need to replace the boilerplate text";
not_in_file_ok(README =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
module_boilerplate_ok('lib/App/FileComposer.pm');
view release on metacpan or search on metacpan
script/dir-not-empty view on Meta::CPAN
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2023-11-30'; # DATE
our $DIST = 'App-FileTestUtils'; # DIST
our $VERSION = '0.005'; # VERSION
App::FileTestUtils::do_script("dir_not_empty");
# ABSTRACT: Test that a directory is not empty
# PODNAME: dir-not-empty
__END__
script/dir-not-empty view on Meta::CPAN
if you specify C<-v> or C<--invert-match>).
=head1 DESCRIPTION
This is CLI for L<File::Util::Test>'s
L<dir_not_empty|File::Util::Test/dir_not_empty>.
=head1 HOMEPAGE
Please visit the project's homepage at L<https://metacpan.org/release/App-FileTestUtils>.
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
use strict;
use warnings;
use Test::More tests => 3;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
t/boilerplate.t view on Meta::CPAN
}
}
sub module_boilerplate_ok {
my ($module) = @_;
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
);
}
TODO: {
local $TODO = "Need to replace the boilerplate text";
not_in_file_ok(README =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
module_boilerplate_ok('lib/App/Foca/Server.pm');
view release on metacpan or search on metacpan
lib/App/FoodColorUtils.pm view on Meta::CPAN
=item * B<code.min> => I<str>
Only return records where the 'code' field is greater than or equal to specified value.
=item * B<code.not_contains> => I<str>
Only return records where the 'code' field does not contain specified text.
=item * B<code.not_in> => I<array[str]>
Only return records where the 'code' field is not in the specified values.
=item * B<code.xmax> => I<str>
lib/App/FoodColorUtils.pm view on Meta::CPAN
=item * B<color.min> => I<str>
Only return records where the 'color' field is greater than or equal to specified value.
=item * B<color.not_contains> => I<str>
Only return records where the 'color' field does not contain specified text.
=item * B<color.not_in> => I<array[str]>
Only return records where the 'color' field is not in the specified values.
=item * B<color.xmax> => I<str>
lib/App/FoodColorUtils.pm view on Meta::CPAN
=item * B<name.min> => I<str>
Only return records where the 'name' field is greater than or equal to specified value.
=item * B<name.not_contains> => I<str>
Only return records where the 'name' field does not contain specified text.
=item * B<name.not_in> => I<array[str]>
Only return records where the 'name' field is not in the specified values.
=item * B<name.xmax> => I<str>
view release on metacpan or search on metacpan
t/00-boilerplate.t view on Meta::CPAN
use strict;
use warnings;
use Test::More tests => 3;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or fail("couldn't open $filename for reading: $!") ;
my %violated;
t/00-boilerplate.t view on Meta::CPAN
}
}
sub module_boilerplate_ok {
my ($module) = @_;
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
);
}
not_in_file_ok(README =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
module_boilerplate_ok('lib/App/Framework/Lite.pm');
view release on metacpan or search on metacpan
t/00-boilerplate.t view on Meta::CPAN
use strict;
use warnings;
use Test::More tests => 3;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or fail("couldn't open $filename for reading: $!") ;
my %violated;
t/00-boilerplate.t view on Meta::CPAN
}
}
sub module_boilerplate_ok {
my ($module) = @_;
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
);
}
not_in_file_ok(README =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
module_boilerplate_ok('lib/App/Framework.pm');
view release on metacpan or search on metacpan
lib/App/FromUnixtime.pm view on Meta::CPAN
if ( ! IO::Interactive::Tiny::is_interactive(*STDIN) ) {
while ( my $line = <STDIN> ) {
chomp $line;
if ( my $match = _may_replace($line, $config) ) {
if ( ! _may_not_replace($line, $config) ) {
_replace_unixtime($match => \$line, $config);
}
}
print "$line\n";
}
lib/App/FromUnixtime.pm view on Meta::CPAN
) {
return $1;
}
}
sub _may_not_replace {
my ($line, $config) = @_;
return unless $config->{'no-re'};
for my $no_re (@{$config->{'no-re'}}) {
view release on metacpan or search on metacpan
script/_genpass-id view on Meta::CPAN
#@plural{@no_change} = @no_change;
#
#
#
#
#my @not_plural = (qw/
#Aries
#Charles
#Gonzales
#Hades
#Hercules
script/_genpass-id view on Meta::CPAN
#yes
#nucleus
#synchronous
#/);
#
#my %not_plural;
#
#@not_plural{@not_plural} = (1) x @not_plural;
#
#
#
#
#
script/_genpass-id view on Meta::CPAN
#
#sub to_singular
#{
# my ($word) = @_;
# my $singular = $word;
# if (! $not_plural{$word}) {
# if ($plural{$word}) {
# $singular = $plural{$word};
# }
# elsif ($word =~ /s$/) {
# if ($word =~ /'s$/) {
view release on metacpan or search on metacpan
script/_genpass-wordlist view on Meta::CPAN
#@plural{@no_change} = @no_change;
#
#
#
#
#my @not_plural = (qw/
#Aries
#Charles
#Gonzales
#Hades
#Hercules
script/_genpass-wordlist view on Meta::CPAN
#yes
#nucleus
#synchronous
#/);
#
#my %not_plural;
#
#@not_plural{@not_plural} = (1) x @not_plural;
#
#
#
#
#
script/_genpass-wordlist view on Meta::CPAN
#
#sub to_singular
#{
# my ($word) = @_;
# my $singular = $word;
# if (! $not_plural{$word}) {
# if ($plural{$word}) {
# $singular = $plural{$word};
# }
# elsif ($word =~ /s$/) {
# if ($word =~ /'s$/) {
view release on metacpan or search on metacpan
script/getopt-long-sample-implicit-dest-hash-storage view on Meta::CPAN
my %opts;
GetOptions(
\%opts,
'foo=s',
'bar=s' => \$opts{not_bar},
'baz=s',
'help|h' => sub {
print <<'_';
Usage:
getopt-long-sample-implicit-dest [[--foo=s] [--bar=s] [--baz=s]] | [--help|-h]
view release on metacpan or search on metacpan
local $/ = undef; # slurp mode
my $data = <FH>;
close FH;
#-----------------------------------------------------------------------------
# Kwalitee Indicator: buildtool_not_executable core
# The build tool (Build.PL/Makefile.PL) is executable. This is bad because
# you should specify which perl you want to use while installing.
#
# How to fix
# Change the permissions of Build.PL/Makefile.PL to not-executable.
# Test::Harness::runtests cannot work heavy load.
sub _runtests {
my @script = @_;
my @fail_testno = ();
my $ok_script = 0;
my $not_ok_script = 0;
my $total_ok = 0;
my $total_not_ok = 0;
# cygwin warning:
# MS-DOS style path detected: C:/cpan/Char-X.XX
# Preferred POSIX equivalent is: /cygdrive/c/cpan/Char-X.XX
# CYGWIN environment variable option "nodosfilewarning" turns off this warning.
for my $script (@script) {
next if not -e $script;
my $testno = 1;
my $ok = 0;
my $not_ok = 0;
if (my @result = qx{$^X $script}) {
if (my($tests) = shift(@result) =~ /^1..([0-9]+)/) {
for my $result (@result) {
if ($result =~ /^ok /) {
$ok++;
}
elsif ($result =~ /^not ok /) {
push @{$fail_testno[$scriptno]}, $testno;
$not_ok++;
}
$testno++;
}
if ($ok == $tests) {
printf("$script ok\n");
$ok_script++;
}
else {
printf("$script Failed %d/%d subtests\n", $not_ok, $ok+$not_ok);
$not_ok_script++;
}
}
}
$total_ok += $ok;
$total_not_ok += $not_ok;
$scriptno++;
}
if (scalar(@script) == $ok_script) {
printf <<'END', scalar(@script), $total_ok + $total_not_ok;
All tests successful.
Files=%d, Tests=%d
Result: PASS
END
}
print $script[$scriptno], "\n";
print ' Failed test: ', join(', ', @{$fail_testno[$scriptno]}), "\n";
}
$scriptno++;
}
printf("Files=%d, Tests=%d\n", scalar(@script), $total_ok + $total_not_ok);
printf("Result: FAIL\n");
printf("Failed %d/%d test programs. %d/%d subtests failed.\n", $not_ok_script, scalar(@script), $total_not_ok, $total_ok + $total_not_ok);
}
}
sub check_usascii {
my($file) = @_;
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
use strict;
use warnings;
use Test::More;
use Test::Warnings;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
t/boilerplate.t view on Meta::CPAN
}
sub module_boilerplate_ok {
my ($module) = @_;
subtest $module => sub {
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
'module description' => qr/One-line description of module/,
'description' => qr/A full description of the module/,
t/boilerplate.t view on Meta::CPAN
);
};
}
subtest 'README' => sub {
not_in_file_ok((-f 'README' ? 'README' : 'README.pod') =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
};
subtest 'Changes' => sub {
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
};
module_boilerplate_ok('bin/git-branch-conflicts');
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
use strict;
use warnings;
use Test::More;
use Test::Warnings;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
t/boilerplate.t view on Meta::CPAN
}
sub module_boilerplate_ok {
my ($module) = @_;
subtest $module => sub {
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
'module description' => qr/One-line description of module/,
'description' => qr/A full description of the module/,
t/boilerplate.t view on Meta::CPAN
);
};
}
subtest 'README' => sub {
not_in_file_ok((-f 'README' ? 'README' : 'README.pod') =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
};
subtest 'Changes' => sub {
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
};
module_boilerplate_ok('bin/git-cat');
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
use strict;
use warnings;
use Test::More;
use Test::Warnings;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
t/boilerplate.t view on Meta::CPAN
}
sub module_boilerplate_ok {
my ($module) = @_;
subtest $module => sub {
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
'module description' => qr/One-line description of module/,
'description' => qr/A full description of the module/,
t/boilerplate.t view on Meta::CPAN
);
};
}
subtest 'README' => sub {
not_in_file_ok((-f 'README' ? 'README' : 'README.pod') =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
};
subtest 'Changes' => sub {
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
};
module_boilerplate_ok('bin/git-since-release');
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
use strict;
use warnings;
use Test::More;
use Test::Warnings;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
t/boilerplate.t view on Meta::CPAN
}
sub module_boilerplate_ok {
my ($module) = @_;
subtest $module => sub {
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
'module description' => qr/One-line description of module/,
'description' => qr/A full description of the module/,
t/boilerplate.t view on Meta::CPAN
);
};
}
subtest 'README' => sub {
not_in_file_ok((-f 'README' ? 'README' : 'README.pod') =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
};
subtest 'Changes' => sub {
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
};
module_boilerplate_ok('bin/git-take');
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
use strict;
use warnings;
use Test::More;
use Test::Warnings;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
t/boilerplate.t view on Meta::CPAN
}
sub module_boilerplate_ok {
my ($module) = @_;
subtest $module => sub {
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
'module description' => qr/One-line description of module/,
'description' => qr/A full description of the module/,
t/boilerplate.t view on Meta::CPAN
);
};
}
subtest 'README' => sub {
not_in_file_ok((-f 'README' ? 'README' : 'README.pod') =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
};
subtest 'Changes' => sub {
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
};
module_boilerplate_ok('lib/App/Git/Workflow/Extra.pm');
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
use strict;
use warnings;
use Test::More;
use Test::Warnings;
sub not_in_file_ok {
my ( $filename, %regex ) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
t/boilerplate.t view on Meta::CPAN
}
sub module_boilerplate_ok {
my ($module) = @_;
subtest $module => sub {
not_in_file_ok(
$module => 'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
'module description' => qr/One-line description of module/,
'description' => qr/A full description of the module/,
t/boilerplate.t view on Meta::CPAN
);
};
}
subtest 'README' => sub {
not_in_file_ok(
( -f 'README' ? 'README' : 'README.pod' ) =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
};
subtest 'Changes' => sub {
not_in_file_ok( Changes => "placeholder date/time" => qr(Date/time) );
};
module_boilerplate_ok('bin/git-amend');
module_boilerplate_ok('bin/git-branch-age');
module_boilerplate_ok('bin/git-branch-clean');
view release on metacpan or search on metacpan
xt/boilerplate.t view on Meta::CPAN
use warnings;
use Test::More;
plan tests => 3;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
xt/boilerplate.t view on Meta::CPAN
}
}
sub module_boilerplate_ok {
my ($module) = @_;
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
);
}
TODO: {
not_in_file_ok(README =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
module_boilerplate_ok('lib/App/GitFind.pm');
view release on metacpan or search on metacpan
lib/App/GitGerrit.pm view on Meta::CPAN
use utf8;
use 5.010;
use strict;
use warnings;
use locale ':not_characters';
# The following incantation is here to avoid this bug:
# https://rt.perl.org/rt3/Public/Bug/Display.html?id=63402
my $encoding;
BEGIN {
view release on metacpan or search on metacpan
lib/App/GitGot/Command/fork.pm view on Meta::CPAN
=head1 SYNOPSIS
# fork repo on GitHub, then clone repository and add to got config
$ got fork github.com/owner/repo
# fork repo on GitHub, add to got config, but do _not_ clone locally
$ got fork -n github.com/owner/repo
$ got fork --noclone github.com/owner/repo
=head1 AUTHOR
view release on metacpan or search on metacpan
# Make sure the env variable check works.
{
name => 'Commit in production.',
environment => 'production',
config => "max_update_age = 172800 # 2 days\n"
. "update_file = .does_not_exist.txt\n",
expected => qr/^(?!.*\Q$description\E)/s,
},
{
name => 'Commit in development.',
environment => 'development',
config => "max_update_age = 172800 # 2 days\n"
. "update_file = .does_not_exist.txt\n",
expected => qr/^\Qx It appears that you have never performed $description on this machine - please do that before committing.\E/,
},
];
# Bail out if Git isn't available.
view release on metacpan or search on metacpan
lib/App/GitHub/FindRepository.pm view on Meta::CPAN
print "$repository\n";
}
exit 0;
}
sub do_not_found ($) {
my $repository = shift;
warn <<_END_;
$0: Repository \"$repository\" not found
_END_
exit -1;
lib/App/GitHub/FindRepository.pm view on Meta::CPAN
do_usage <<_END_;
$0: There was an error: $error
_END_
}
do_not_found $repository;
}
=head1 AUTHOR
Robert Krimen, C<< <rkrimen at cpan.org> >>
view release on metacpan or search on metacpan
t/release/boilerplate.t view on Meta::CPAN
use strict;
use warnings;
use Test::More tests => 3;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
t/release/boilerplate.t view on Meta::CPAN
}
}
sub module_boilerplate_ok {
my ($module) = @_;
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
);
}
TODO: {
local $TODO = "Need to replace the boilerplate text";
not_in_file_ok(README =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
module_boilerplate_ok('lib/App/GitHub/FixRepositoryName.pm');
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
use strict;
use warnings;
use Test::More tests => 3;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, "<", $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
t/boilerplate.t view on Meta::CPAN
} else {
pass("$filename contains no boilerplate text");
}
}
not_in_file_ok(README =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
sub module_boilerplate_ok {
my ($module) = @_;
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
);
}
view release on metacpan or search on metacpan
module_maker = "ModuleBuildTiny"
static_install = "auto"
[release]
branch = "main"
do_not_upload_to_cpan = 0
view release on metacpan or search on metacpan
module_maker = "ModuleBuildTiny"
static_install = "auto"
[release]
branch = "main"
do_not_upload_to_cpan = 0
view release on metacpan or search on metacpan
lib/App/Greple/xlate/llm.pm view on Meta::CPAN
sub _llm_in_path {
grep { -x "$_/llm" } split /:/, $ENV{PATH} // '';
}
sub _not_found {
"llm: command not found.\n" .
"Install llm <https://llm.datasette.io/> with " .
"\"pip install llm\" or \"pipx install llm\".\n";
}
lib/App/Greple/xlate/llm.pm view on Meta::CPAN
##
## Check PATH before forking: Command::Run's forked child has no
## exit guard after a failed exec, so reaching that path would let
## the child escape into the caller's code.
##
_llm_in_path() or die _not_found();
my @command = llm_command($param, build_system($param));
warn Dumper \@command if opt('debug');
my $result = $run->command(@command)
->run(stdin => $text, stderr => 'capture');
if ($result->{result} != 0) {
lib/App/Greple/xlate/llm.pm view on Meta::CPAN
##
sub diagnose {
my($param, $result) = @_;
my $stderr = $result->{error} // '';
if (! _llm_in_path()) {
return _not_found();
}
my $model = $param->{model};
my $models = Command::Run->new->command('llm', 'models')
->run(stderr => 'capture')->{data} // '';
if ($models !~ /\Q$model\E/) {
view release on metacpan or search on metacpan
lib/App/Guiio/stripes/section_wirl_arrow.pm view on Meta::CPAN
#-----------------------------------------------------------------------------
sub setup
{
my ($self, $arrow_type, $points, $direction, $allow_diagonal_lines, $editable, $not_connectable_start, $not_connectable_end) = @_ ;
if('ARRAY' eq ref $points && @{$points} > 0)
{
my ($start_x, $start_y, $arrows) = (0, 0, []) ;
lib/App/Guiio/stripes/section_wirl_arrow.pm view on Meta::CPAN
# keep data to allow section insertion later
ARROW_TYPE => $arrow_type,
DIRECTION => $direction,
ALLOW_DIAGONAL_LINES => $allow_diagonal_lines,
EDITABLE => $editable,
NOT_CONNECTABLE_START => $not_connectable_start,
NOT_CONNECTABLE_END => $not_connectable_end,
) ;
my ($width, $height) = $self->get_width_and_height() ;
$self->set
(
view release on metacpan or search on metacpan
lib/App/Highlander.pm view on Meta::CPAN
our $LOCKDIR;
sub import {
my ($self, %args) = @_;
_create_if_not_exists(
$LOCKDIR = $args{LOCKDIR} // tempdir( CLEANUP => 1 )
);
print "LOCKDIR='$LOCKDIR'\n";
return;
}
lib/App/Highlander.pm view on Meta::CPAN
my $lock_name = join ':',
($lock_string || ()),"${normalized_programname}.lock";
return path($LOCKDIR, $lock_name)->canonpath;
}
sub _create_if_not_exists {
my ($dir) = @_;
return if -e $dir;
mkdir $dir, 0755
or die "Unable to make directory '$dir': $OS_ERROR";