• Your recent searches
Result:
found more than 523 distributions - search limited to the first 2001 files matching your query ( run in 1.790 )


App-GitKtti
3 results

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN 

bin/gitktti-tests
t/01-basic.t
t/02-functions.t
README.md
docs/index.html
docs/assets/gitktti_logo.png
META.yml                                 Module YAML meta-data (added by MakeMaker)
META.json                                Module JSON meta-data (added by MakeMaker)

 view all matches for this distribution


App-GnuplotUtils
3 results

 view release on metacpan or  search on metacpan

lib/App/GnuplotUtils.pm  view on Meta::CPAN 

        output_format => {
            description => <<'MARKDOWN',

The output format is normally determined from the output filename's extension,
e.g. `foo.jpg`. This option is for when you do not specify output filename and
want to change the format from the default `png`.

MARKDOWN
            schema => ['str*', in=>[qw/bmp gif jpg png webp
                                       pdf ps svg/]],
            default => 'png',
        },
        output_file => {
            schema => 'filename*',
            cmdline_aliases => {o=>{}},
            tags => ['category:output'],

lib/App/GnuplotUtils.pm  view on Meta::CPAN 

    require File::Temp;
    require Scalar::Util;

    my %args = @_;

    my $output_format = $args{output_format} // 'png';

    my $fieldsep_re = qr/\s*,\s*|\s+/s;
    if (defined $args{delimited}) {
        $fieldsep_re = qr/\Q$args{delimited}\E/;
    }

lib/App/GnuplotUtils.pm  view on Meta::CPAN 


=item * B<output_file> => I<filename>

(No description)

=item * B<output_format> => I<str> (default: "png")

The output format is normally determined from the output filename's extension,
e.g. C<foo.jpg>. This option is for when you do not specify output filename and
want to change the format from the default C<png>.

=item * B<overwrite> => I<bool>

(No description)

 view all matches for this distribution


App-Greple-charcode
3 results

 view release on metacpan or  search on metacpan

lib/App/Greple/annotate.pm  view on Meta::CPAN 

            │ ┌─  14 \x{a9} \N{COPYRIGHT SIGN}
            │ ├─  14 \x{fe0e} \N{VARIATION SELECTOR-15}
    Copyright︎ ©︎ 2025 Kazumasa Utashiro.

=for html <p>
<img width="750" src="https://raw.githubusercontent.com/kaz-utashiro/greple-charcode/refs/heads/main/images/ka-ko.png">
</p>

=head1 COMMAND OPTIONS

=over 7

 view all matches for this distribution


App-Greple-frame
2 results

 view release on metacpan or  search on metacpan

lib/App/Greple/frame.pm  view on Meta::CPAN 

=for comment
=item B<--frame-fold>

=begin html

<p><img width="75%" src="https://raw.githubusercontent.com/kaz-utashiro/greple-frame/main/images/terminal-3.png">

=end html

Set frame and fold long lines with frame-friendly prefix string.
Folding width is taken from the terminal.  Or you can specify the

lib/App/Greple/frame.pm  view on Meta::CPAN 


Output results in multi-column and paginated format.

=begin html

<p><img width="75%" src="https://raw.githubusercontent.com/kaz-utashiro/greple-frame/main/images/terminal-frame-pages.png">

=end html

=item B<--set-frame-width>=I<#>

lib/App/Greple/frame.pm  view on Meta::CPAN 


    greple -Mframe::set=width=2/3- --frame --uc '(\w+::)+\w+' --git | ansicolumn -PC2

=begin html

<p><img width="75%" src="https://raw.githubusercontent.com/kaz-utashiro/greple-frame/main/images/terminal-column.png">

=end html

=back

 view all matches for this distribution


App-Greple-git
1 match

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN 

LICENSE
META.json
README.md
cpanfile
images/git-blame-label-small.jpg
images/git-blame-label-small.png
images/git-blame-label.png
images/git-blame-small.jpg
images/git-blame-small.png
images/git-blame.png
lib/App/Greple/git.pm
minil.toml
t/00_compile.t
META.yml
MANIFEST

 view all matches for this distribution


App-Greple-md
1 match

 view release on metacpan or  search on metacpan

t/test.md  view on Meta::CPAN 


***

[simple link](https://example.com)

![image alt](https://example.com/img.png)

[![linked image](https://example.com/img.png)](https://example.com)

<!-- HTML comment -->

<!--
multi-line comment

 view all matches for this distribution


App-Greple-stripe
12 results

 view release on metacpan or  search on metacpan

lib/App/Greple/stripe.pm  view on Meta::CPAN 

The following command matches two consecutive lines.

    greple -E '(.+\n){1,2}' --face +E

=for html <p>
<img width="750" src="https://raw.githubusercontent.com/kaz-utashiro/greple-stiripe/refs/heads/main/images/normal.png">
</p>

However, each matched block is colored by the same color, so it is not
clear where the block breaks.  One way is to explicitly display the
blocks using the C<--blockend> option.

    greple -E '(.+\n){1,2}' --face +E --blockend=--

=for html <p>
<img width="750" src="https://raw.githubusercontent.com/kaz-utashiro/greple-stiripe/refs/heads/main/images/blockend.png">
</p>

Using the stripe module, blocks matching the same pattern are colored
with different colors of the similar color series.

    greple -Mstripe -E '(.+\n){1,2}' --face +E

=for html <p>
<img width="750" src="https://raw.githubusercontent.com/kaz-utashiro/greple-stiripe/refs/heads/main/images/stripe.png">
</p>

By default, two color series are prepared. Thus, when multiple
patterns are searched, an even-numbered pattern and an odd-numbered
pattern are assigned different color series.

    greple -Mstripe -E '.*[02468]$' -E '.*[13579]$' --need=1

=for html <p>
<img width="750" src="https://raw.githubusercontent.com/kaz-utashiro/greple-stiripe/refs/heads/main/images/random.png">
</p>

When multiple patterns are specified as in the above example, only
lines matching all patterns will be output.  So the C<--need=1> option
is required to relax this condition.

lib/App/Greple/stripe.pm  view on Meta::CPAN 

can be increased up to 6.

    greple -Mstripe::config=step=3 --need=1 -E p1 -E p2 -E p3 ...

=for html <p>
<img width="750" src="https://raw.githubusercontent.com/kaz-utashiro/greple-stiripe/refs/heads/main/images/step-3.png">
</p>

=head1 MODULE OPTIONS

There are options specific to the B<stripe> module.  They can be

lib/App/Greple/stripe.pm  view on Meta::CPAN 

=item B<--darkmode>

Use dark background colors.

=for html <p>
<img width="750" src="https://raw.githubusercontent.com/kaz-utashiro/greple-stiripe/refs/heads/main/images/darkmode.png">
</p>

Use C<--face> option to set foreground color for all colormap.  The
following command sets the foreground color to white and fills the
entire line with the background color.

    greple -Mstripe --darkmode -- --face +WE

=for html <p>
<img width="750" src="https://raw.githubusercontent.com/kaz-utashiro/greple-stiripe/refs/heads/main/images/dark-white.png">
</p>

=back

=head1 SEE ALSO

 view all matches for this distribution


App-Greple-subst-desumasu
5 results

 view release on metacpan or  search on metacpan

t/t1-s.txt  view on Meta::CPAN 


以前紹介した石川県金沢市の[加賀変電所(東)](/mt/684)はかつては「加賀開閉所」と呼ばれ、関西電力嶺南変電所(福井県美浜町)との間で「加賀嶺南線」と呼ばれる送電系統が275kVで運用さã‚...

## 越前変電所へのアクセス

![越前変電所の位置](@RS@/fukui-keitou-e-1556635023.png)

福井市の東方、足羽川沿いを走る国道158号線(美濃街道)の途中に越前大宮に越前変電所はあります。

市街から一乗谷を越えて東に走るとまず南北に直行するのが関西電力大黒部幹線275kV。そして次には新福井変電所からの越前線で同じく275kV。そして東西に並走しているのが足羽線77kVでã...

t/t1-s.txt  view on Meta::CPAN 


この結界を見上げる瞬間、なにか秘密を覗く時のフェティシズムを感じるようになればあなたはもう鉄ちゃんです。

## 最後に

[![北陸電力越前変電所 周辺接続図](@RS@/o-echizenss-1556637118.png)](@RS@/org/o-echizenss-1556637118.png)

まとめとして北陸電力越前変電所 周辺接続図を作ってみました。交差も少なく非常にシンプルな設計ですね。

越前嶺南線はここから、山岳地帯を通って敦賀発電所近くの美浜町嶺南変電所に、越前線は新福井変電所に、南条越前線は南条変電所にそれぞれ接続されます。その先はどうなってるのã...

 view all matches for this distribution


App-Greple-under
3 results

 view release on metacpan or  search on metacpan

lib/App/Greple/under.pm  view on Meta::CPAN 

words specified.

    greple 'license agreements software freedom' LICENSE -p

=for html <p>
<img width="750" src="https://raw.githubusercontent.com/kaz-utashiro/greple-under/main/images/normal.png">
</p>

By default, the emphasis should be indicated by underlining it on the
next line.

lib/App/Greple/under.pm  view on Meta::CPAN 

 │ ▔▔▔▔▔▔▔▔                                                              │
 │ You can use it for your programs, too.                                │
 └───────────────────────────────────────────────────────────────────────┘

=for html <p>
<img width="750" src="https://raw.githubusercontent.com/kaz-utashiro/greple-under/main/images/under-line.png">
</p>

If you want to process the search results before underlining them,
process them in the C<-Munder::mise> module and then pass them through
the C<-Munder::place> module.

    greple -Munder::mise ... | ... | greple -Munder::place

=for html <p>
<img width="750" src="https://raw.githubusercontent.com/kaz-utashiro/greple-under/main/images/mise-place.png">
</p>

=head1 MODULE OPTION

=head2 B<--config>

 view all matches for this distribution


App-Greple-wordle
2 results

 view release on metacpan or  search on metacpan

README.md  view on Meta::CPAN 


Rules are almost the same as the original game, but answers are different.
Use the **--compat** option to get answers compatible with the original game.

<div>
    <p><img width="750" src="https://raw.githubusercontent.com/kaz-utashiro/greple-wordle/main/images/screen-5.png">
</div>

# OPTIONS

- **--data**=_dataset_

README.md  view on Meta::CPAN 

    greple -Mwordle --data=NYT            # Use NYT Wordle word list
    greple -Mwordle --data=ORIGINAL       # Use original word list (default)
    greple -Mwordle --data=NYT -n0        # First word in NYT dataset (cigar)

<div>
    <p><img width="750" src="https://raw.githubusercontent.com/kaz-utashiro/greple-wordle/main/images/hint-1.png">
</div>

# BUGS

A character in the wrong position is always colored yellow, even if it

 view all matches for this distribution


App-Greple-xlate
42 results

 view release on metacpan or  search on metacpan

lib/App/Greple/xlate.pm  view on Meta::CPAN 

lines starting with alpha-numeric and punctuation letter.  This
command show the area to be translated highlighted.  Option B<--all>
is used to produce entire text.

=for html <p>
<img width="750" src="https://raw.githubusercontent.com/kaz-utashiro/App-Greple-xlate/main/images/select-area.png">
</p>

Then add C<--xlate> option to translate the selected area.  Then, it
will find the desired sections and replace them by the B<deepl>
command output.

lib/App/Greple/xlate.pm  view on Meta::CPAN 

marker" format compatible with L<git(1)>.  Using C<ifdef> format, you
can get desired part by L<unifdef(1)> command easily.  Output format
can be specified by B<--xlate-format> option.

=for html <p>
<img width="750" src="https://raw.githubusercontent.com/kaz-utashiro/App-Greple-xlate/main/images/format-conflict.png">
</p>

If you want to translate entire text, use B<--match-all> option.  This
is a short-cut to specify the pattern C<(?s).+> which matches entire
text.

lib/App/Greple/xlate.pm  view on Meta::CPAN 

C<--no-textcolor> (or C<--no-tc>).

    sdif -V --no-filename --no-tc --no-cdif data_shishin.deepl-EN-US.cm

=for html <p>
<img width="750" src="https://raw.githubusercontent.com/kaz-utashiro/App-Greple-xlate/main/images/sdif-cm-view.png">
</p>

=head1 NORMALIZATION

Processing is done in specified units, but in the case of a sequence

lib/App/Greple/xlate.pm  view on Meta::CPAN 

command from Emacs editor.  C<xlate-region> function translate the
given region.  Default language is C<EN-US> and you can specify
language invoking it with prefix argument.

=for html <p>
<img width="750" src="https://raw.githubusercontent.com/kaz-utashiro/App-Greple-xlate/main/images/emacs.png">
</p>

=head1 ENVIRONMENT

=over 7

 view all matches for this distribution


App-Greple
6 results

 view release on metacpan or  search on metacpan

lib/App/Greple/dig.pm  view on Meta::CPAN 


expand is_dots		  -name .*
expand is_version	  -name *,v
expand is_backup	( -name *~ -o -name *.swp )
expand is_image 	( -iname *.jpg  -o -iname *.jpeg -o \
			  -iname *.gif  -o -iname *.png  -o \
			  -iname *.ico  -o \
			  -iname *.heic -o -iname *.heif -o \
			  -iname *.svg  -o \
			  -iname *.tif \
			)

 view all matches for this distribution


App-Guiio
8 results

 view release on metacpan or  search on metacpan

lib/App/Guiio/Dialogs.pm  view on Meta::CPAN 

my $root_dir = find_installed('App::Guiio');

	my ($basename, $path, $ext) = File::Basename::fileparse(find_installed('App::Guiio'), ('\..*')) ;
	$path = $path . $basename . '/';
	my $vbox = Gtk2::VBox->new (TRUE,4);
my $btnWindow = create_button('Window',$path . 'images/widget-gtk-dialog.png',TRUE);
my $btnButton = create_button('Button',$path . 'images/widget-gtk-button.png', TRUE);
my $btnTextbox = create_button('Textbox',$path . 'images/widget-gtk-entry.png', TRUE);
my $btnProgressBar = create_button('Progress Bar',$path .'images/widget-gtk-progressbar.png',TRUE);
my $btnScrollBar = create_button('Scroll Bar',$path .'images/widget-gtk-vscrollbar.png', TRUE);
my $btnSlider = create_button('Slider', $path .'images/widget-gtk-hscale.png', TRUE);
my $btnListbox = create_button('Listbox', $path .'images/widget-gtk-list.png',TRUE);
my $btnCombobox = create_button('Dropdown List', $path .'images/widget-gtk-combo.png',TRUE);
my $btnCalendar = create_button('Calendar',$path .'images/widget-gtk-calendar.png',TRUE);
my $btnRadioButton = create_button('Radio Button',$path . 'images/widget-gtk-radiobutton.png',TRUE);
my $btnCheckBox = create_button('Checkbox', $path .'images/widget-gtk-checkbutton.png',TRUE);
my $btnLabel = create_button('Label',$path . 'images/widget-gtk-label.png',TRUE);

$btnButton->signal_connect("clicked", sub { $self->activate_guiio_component('stencils/guiio/Button'); });
$btnWindow->signal_connect("clicked", sub { $self->activate_guiio_component('stencils/guiio/Window');});
$btnLabel->signal_connect("clicked", sub { $self->activate_guiio_component('stencils/guiio/Label');});
$btnListbox->signal_connect("clicked", sub { $self->activate_guiio_component('stencils/guiio/Listbox'); });

 view all matches for this distribution


App-Icli
1 match

 view release on metacpan or  search on metacpan

t/in/objects.cache  view on Meta::CPAN 

	notification_interval	0.000000
	first_notification_delay	0.000000
	stalking_options	n
	process_perf_data	1
	failure_prediction_enabled	1
	icon_image	base/debian.png
	icon_image_alt	Debian GNU/Linux
	vrml_image	debian.png
	statusmap_image	base/debian.gd2
	notes	Debian GNU/Linux servers
	retain_status_information	1
	retain_nonstatus_information	1
	}

t/in/objects.cache  view on Meta::CPAN 

	notification_interval	0.000000
	first_notification_delay	0.000000
	stalking_options	n
	process_perf_data	1
	failure_prediction_enabled	1
	icon_image	base/debian.png
	icon_image_alt	Debian GNU/Linux
	vrml_image	debian.png
	statusmap_image	base/debian.gd2
	notes	Debian GNU/Linux servers
	retain_status_information	1
	retain_nonstatus_information	1
	}

 view all matches for this distribution


App-Ikachan
2 results

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN 

.gitignore
bin/ikachan
bin/ikachan_client
Changes
cpanfile
ikachan-logo.png
inc/Module/CPANfile.pm
inc/Module/Install.pm
inc/Module/Install/AuthorTests.pm
inc/Module/Install/Base.pm
inc/Module/Install/Can.pm

 view all matches for this distribution


App-Image-Generator
1 match

 view release on metacpan or  search on metacpan

t/App-Image-Generator/04-run.t  view on Meta::CPAN 

);

# Test.
@ARGV = (
	'-s 100',
	'output_file.png',
);
eval {
	App::Image::Generator->new->run;
};
is($EVAL_ERROR, "Bad size value.\n", "Bad size value (-s 100).");
clean();

# Test.
@ARGV = (
	'-p bad_pattern',
	'output_file.png',
);
eval {
	App::Image::Generator->new->run;
};
is($EVAL_ERROR, "Bad pattern.\n", "Bad pattern (-p bad_pattern).");

 view all matches for this distribution


App-ImageMagickUtils
16 results

 view release on metacpan or  search on metacpan

lib/App/ImageMagickUtils.pm  view on Meta::CPAN 

        pos => 0,
        slurpy => 1,
    },
);

our %argspec0plus_files__comp_png = (
    files => {
        'x.name.is_plural' => 1,
        'x.name.singular' => 'file',
        schema => ['array*' => of => 'filename*'],
        'x.completion' => [filename => {file_ext_filter=>'png'}],
        req => 1,
        pos => 0,
        slurpy => 1,
    },
);

lib/App/ImageMagickUtils.pm  view on Meta::CPAN 

        %argspec0plus_files,
        %argspecopt_quality,
        to => {
            schema => ['str*', match=>qr/\A\w+\z/],
            req => 1,
            examples => [qw/pdf jpg png/], # for tab completion
        },
        %argspecs_delete,
    },
    #features => {
    #    dry_run => 1,

lib/App/ImageMagickUtils.pm  view on Meta::CPAN 

    summary => 'Convert images to JPG using ImageMagick\'s \'convert\' utility',
    description => <<'MARKDOWN',

This is a wrapper to `convert-image-to`, with `--to` set to `jpg`:

    % convert-image-to-pdf *.png

is equivalent to:

    % convert-image-to --to jpg *.png

which in turn is equivalent to:

    % for f in *.png; do convert "$f" "$f.jpg"; done

MARKDOWN
    args => {
        %argspec0plus_files,
        %argspecopt_quality,

lib/App/ImageMagickUtils.pm  view on Meta::CPAN 

sub convert_image_to_jpg {
    my %args = @_;
    convert_image_to(%args, to=>'jpg');
}

$SPEC{convert_image_to_png} = {
    v => 1.1,
    summary => 'Convert images to JPG using ImageMagick\'s \'convert\' utility',
    description => <<'MARKDOWN',

This is a wrapper to `convert-image-to`, with `--to` set to `png`:

    % convert-image-to-png *.jpg

is equivalent to:

    % convert-image-to --to png *.jpg

which in turn is equivalent to:

    % for f in *.jpg; do convert "$f" "$f.png"; done

MARKDOWN
    args => {
        %argspec0plus_files,
        %argspecopt_quality,

lib/App/ImageMagickUtils.pm  view on Meta::CPAN 

        prog => 'convert',
    },
    examples => [
    ],
};
sub convert_image_to_png {
    my %args = @_;
    convert_image_to(%args, to=>'png');
}

1;
# ABSTRACT: Utilities related to ImageMagick

lib/App/ImageMagickUtils.pm  view on Meta::CPAN 


=item 3. L<convert-image-to-jpg>

=item 4. L<convert-image-to-pdf>

=item 5. L<convert-image-to-png>

=item 6. L<downsize-image>

=item 7. L<image-resize-notation-to-human>

=item 8. L<img2jpg>

=item 9. L<img2pdf>

=item 10. L<img2png>

=item 11. L<jpg2png>

=item 12. L<png2jpg>

=back

=head1 FUNCTIONS

lib/App/ImageMagickUtils.pm  view on Meta::CPAN 


Convert images to JPG using ImageMagick's 'convert' utility.

This is a wrapper to C<convert-image-to>, with C<--to> set to C<jpg>:

 % convert-image-to-pdf *.png

is equivalent to:

 % convert-image-to --to jpg *.png

which in turn is equivalent to:

 % for f in *.png; do convert "$f" "$f.jpg"; done

This function is not exported.

Arguments ('*' denotes required arguments):

lib/App/ImageMagickUtils.pm  view on Meta::CPAN 


Return value:  (any)



=head2 convert_image_to_png

Usage:

 convert_image_to_png(%args) -> [$status_code, $reason, $payload, \%result_meta]

Convert images to JPG using ImageMagick's 'convert' utility.

This is a wrapper to C<convert-image-to>, with C<--to> set to C<png>:

 % convert-image-to-png *.jpg

is equivalent to:

 % convert-image-to --to png *.jpg

which in turn is equivalent to:

 % for f in *.jpg; do convert "$f" "$f.png"; done

This function is not exported.

Arguments ('*' denotes required arguments):

 view all matches for this distribution


App-Images-To-DjVu
3 results

 view release on metacpan or  search on metacpan

DjVu.pm  view on Meta::CPAN 

		$suffix =~ s/^\.//ms;
		my $djvu = $image_base.'.djvu';
		push @djvu, $djvu;
		if ($image ne $djvu && ! -r $djvu) {
			if ($self->{'_opts'}->{'e'} eq 'c44') {
				if ($suffix eq 'png') {
					system "convert $image $image_base.jpg";
					$image = "$image_base.jpg";
				}
				system "c44 $image $djvu";
				if (! $self->{'_opts'}->{'q'}) {

 view all matches for this distribution


App-InvestSim
16 results

 view release on metacpan or  search on metacpan

lib/App/InvestSim/GUI.pm  view on Meta::CPAN 

  if (Tkx::expr('$tcl_platform(platform)') eq 'windows') {
    $root->g_wm_iconbitmap(catfile($res_dir, 'icon.ico'));
  } else {
    # On Linux, we can’t read .ico files directly.
    my $icon = Tkx::widget->new(Tkx::image_create_photo());
    $icon->read(catfile($res_dir, 'sources', 'icon_32.png'));
    # We could pass several images of different sizes here.
    $root->g_wm_iconphoto($icon);
  }
  
  # We're copying the font used by the TreeView style and adding an 'bold'

 view all matches for this distribution


App-JenkinsCli
1 match

 view release on metacpan or  search on metacpan

README.pod  view on Meta::CPAN 

=begin html

<a href="https://travis-ci.org/ivanwills/App-JenkinsCli"><img src="https://travis-ci.org/ivanwills/App-JenkinsCli.png" alt="App-JenkinsCli"></a>
<a href="https://coveralls.io/r/ivanwills/App-JenkinsCli?branch=master"><img src="https://coveralls.io/repos/ivanwills/App-JenkinsCli/badge.svg?branch=master" alt="Coverage Status" /></a>

=head1 App-JenkinsCli

This module provide the C<jenkins-cli> command to allow interactions with a

 view all matches for this distribution


App-LDAP
1 match

 view release on metacpan or  search on metacpan

README.md  view on Meta::CPAN 

# App::LDAP

[![http://travis-ci.org/shelling/app-ldap.png](http://travis-ci.org/shelling/app-ldap.png)](http://travis-ci.org/shelling/app-ldap)

App::LDAP is aimed at being a handy tool for system administrator to create/delete accounts, groups, sudoers, hosts, and
more without editing LDIF directly. Besides, it also provides the abilities similar to migration tools provided by PADL
and a instinctive browser, that can make you easily migrate to LDAP fast within only one tool set. The tool retrives all
infomation via /etc/ldap.conf or the same file at different locations so that you can command almost the same as the

 view all matches for this distribution


App-LXC-Container
2 results

 view release on metacpan or  search on metacpan

t/05-mounts.t  view on Meta::CPAN 

my @sub_dirs = ();
foreach (@sizes)
{
    $_ = '/usr/share/icons/hicolor/' . $_ . 'x' . $_;
    push @sub_dirs, $_;
    $_ = $_ . '/apps/some-icon.png';
    is($obj->mount_point($_, IMPLICIT), IMPLICIT,
       'correct state could be set for ' . $_);
}
is($obj->mount_point('/usr/share/icons/hicolor/8x8/apps/some-icon.png'),
   IMPLICIT,
   'got correct state for entry of /usr/share/icons/hicolor/.../some-icon.png');
is($obj->mount_point('/usr/share/icons/hicolor/8x8/apps'), UNDEFINED,
   'got correct state for entry of /usr/share/icons/hicolor/8x8/apps');
is($obj->mount_point('/usr/share/icons/hicolor/8x8'), UNDEFINED,
   'got correct state for entry of /usr/share/icons/hicolor/8x8');
is($obj->mount_point('/usr/share/icons/hicolor'), UNDEFINED,

t/05-mounts.t  view on Meta::CPAN 

@sub_dirs = sort @sub_dirs;
is_deeply([$obj->sub_directories('/usr/share/icons/hicolor')], \@sub_dirs,
	  'got correct sub-directories for /usr/share/icons/hicolor');

is_deeply([$obj->sub_directories('/usr/share/icons/hicolor/16x16/apps')],
	  ['/usr/share/icons/hicolor/16x16/apps/some-icon.png'],
	  'child found for /usr/share/icons/hicolor/16x16/apps');
is($obj->mount_point('/usr/share/icons/hicolor/16x16/apps', IMPLICIT), IMPLICIT,
   'correct state could be set for /usr/share/icons/hicolor/16x16/apps');
is_deeply([$obj->sub_directories('/usr/share/icons/hicolor/16x16/apps')], [],
	  'I* state of parent correctly removed child for .../16x16/apps');

t/05-mounts.t  view on Meta::CPAN 

# testing a standard merge:
$obj->merge_mount_points(100, 30, 4, 3);
is_deeply([$obj->sub_directories('/usr/share/icons/hicolor')], [],
	  'merge worked for /usr/share/icons/hicolor');

is($obj->mount_point('/usr/share/icons/hicolor/8x8/apps/some-icon.png'),
   IMPLICIT,
   'got correct state for entry of /usr/share/icons/hicolor/.../some-icon.png');
is($obj->mount_point('/usr/share/icons/hicolor/8x8/apps'), IMPLICIT,
   'got correct new state for entry of /usr/share/icons/hicolor/8x8/apps');
is($obj->mount_point('/usr/share/icons/hicolor/8x8'), IMPLICIT,
   'got correct new state for entry of /usr/share/icons/hicolor/8x8');
is($obj->mount_point('/usr/share/icons/hicolor'), IMPLICIT,

 view all matches for this distribution


App-Licensecheck
2 results

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN 

 [ Documentation ]
 - Document Regexp::Pattern::License as a private module.

 [ Other ]
 - Added: Add license patterns ofl aladdin rpsl mit_cmu mit_cmu_warranty.
 - Improve license patterns ftl mit_feh mit_enna cube eurosym libpng zlib
   zlib_acknowledgement.
 - Sort before enumerating ambiguously related combo licenses.
 - Streamline license parsing: Process loops of similar patterne.

v3.0.28	2016-11-25

Changes  view on Meta::CPAN 

   Regexp::Pattern::License.
 - Add license patterns cddl cecill cecill_1 cecill_1_1 cecill_2 cecill_2_1
   cecill_b cecill_c epl to Regexp::Pattern::License.
 - Add license patterns fsfap fsful fsfullr to Regexp::Pattern::License.
 - Add license patterns gpl lgpl to Regexp::Pattern::License.
 - Add license patterns libpng zlib zlib_acknowledgement to
   Regexp::Pattern::License.
 - Add license patterns mit_new mit_new_materials mit_old mit_unspecified
   postgresql, and group pattern mit to Regexp::Pattern::License.
 - Add license patterns unicode_strict unicode_tou to
   Regexp::Pattern::License.

 view all matches for this distribution


App-LinkSite
3 results

 view release on metacpan or  search on metacpan

example/links.json  view on Meta::CPAN 

{
  "name": "Dave Cross",
  "handle": "davorg",
  "image": "davorg.jpg",
  "og_image": "og.png",
  "site_url": "https://some-site.com/",
  "desc": "I make things from software. Some of them are useful.<br>And I've been known to write a book or two.",
  "ga4": "Your Google Analytics key",
  "social": [{
    "service": "facebook"

 view all matches for this distribution


App-LogStats
1 match

 view release on metacpan or  search on metacpan

README.pod  view on Meta::CPAN 


This is Perl module B<App::LogStats>.

=begin html

<a href="http://travis-ci.org/bayashi/App-LogStats"><img src="https://secure.travis-ci.org/bayashi/App-LogStats.png"/></a> <a href="https://coveralls.io/r/bayashi/App-LogStats"><img src="https://coveralls.io/repos/bayashi/App-LogStats/badge.png?branc...



=end html

 view all matches for this distribution


App-MHFS
5 results

 view release on metacpan or  search on metacpan

lib/MHFS/Plugin/Kodi.pm  view on Meta::CPAN 

            }
            $request->SendText('text/plain; charset=utf-8', $json->{overview});
            return;
        } catch ($e){}
    } elsif (-d $b_metadir) {
        my %acceptable = ( 'thumb' => ['png', 'jpg'], 'fanart' => ['png', 'jpg'], 'plot' => ['txt']);
        if(exists $acceptable{$metadatatype}) {
            foreach my $totry (@{$acceptable{$metadatatype}}) {
                my $path = $b_metadir.'/'.$metadatatype.".$totry";
                if(-f $path) {
                    $request->SendLocalFile($path);

 view all matches for this distribution


App-MaMGal
20 results

 view release on metacpan or  search on metacpan

lib/App/MaMGal/Entry/Dir.pm  view on Meta::CPAN 

use Image::Magick;
use App::MaMGal::Exceptions;

sub child            { $_[0]->{path_name}.'/'.$_[1]     }
sub page_path        { $_[0]->{base_name}.'/index.html' }
sub thumbnail_path   { $_[0]->{base_name}.'/.mamgal-index.png'  }

sub init
{
	my $self = shift;
	$self->SUPER::init(@_);

lib/App/MaMGal/Entry/Dir.pm  view on Meta::CPAN 

	my $pruned_files = shift;

	my @images = $self->_all_interesting_elements;

	unless (@images) {
		$self->_write_contents_to(sub { App::MaMGal::DirIcon->img }, '.mamgal-index.png');
		return;
	}

	my $montage_path = $self->child('.mamgal-index.png');
	# Return early if the montage is fresh
	return if $self->fresher_than_me($montage_path, consider_interesting_only => 1) and $pruned_files == 0;

	# Get just a bunch of images, not all of them.
	my $montage_count = scalar @images > 36 ? 36 : scalar @images;

lib/App/MaMGal/Entry/Dir.pm  view on Meta::CPAN 

	my $self = shift;
	my $name = shift;
	# ignore hidden files
	return 1 if substr($_, 0, 1) eq '.';
	# TODO: optimize out contants calls, keeping in mind that they are not really constant (eg. tests change them when testing slides/miniatures generation)
	return 1 if grep { $_ eq $name } (qw(lost+found index.html .mamgal-index.png .mamgal-style.css), $self->slides_dir, $self->thumbnails_dir, $self->medium_dir);
	return 0;
}

sub _prune_inactive_files
{

 view all matches for this distribution


App-Magpie
2 results

 view release on metacpan or  search on metacpan

lib/App/Magpie/Action/WebStatic.pm  view on Meta::CPAN 

    $self->log_debug( "images:" );
    my $imgdir = $dir->child( "images" );
    $imgdir->mkpath;
    $self->log_debug( " - mageia modules" );
    $rrd{mga_mods}->graph(
        image => $imgdir->child("mgamods.png"),
        width => 800,
        title => 'Number of available Perl modules in Mageia Linux',
        start => DateTime->new(year=>2012)->epoch,
        draw  => {
            thickness => 2,

 view all matches for this distribution


App-MakeEPUB
1 match

 view release on metacpan or  search on metacpan

lib/App/MakeEPUB.pm  view on Meta::CPAN 

        next if $path eq 'META-INF/container.xml';
        next if $path eq $c_opf;
        if ($path =~ /\.html$/i) {
            $type = 'application/xhtml+xml';
        }
        elsif ($path =~ /\.png$/i) {
            $type = 'image/png';
        }
        elsif ($path =~ /\.jpe?g$/i) {
            $type = 'image/jpeg';
        }
        elsif ($path =~ /toc\.ncx$/i) {

 view all matches for this distribution


App-MarkFiles
1 match

 view release on metacpan or  search on metacpan

lib/App/MarkFiles.pm  view on Meta::CPAN 

This originated as a simple tool for collecting files from one or more
directories and moving or copying them to another.  A basic usage pattern
looks something like this:

    $ cd ~/screenshots
    $ mark add foo.png
    $ cd ~/blog/files/screenshots
    $ mark mv
    Moved: /home/brennen/screenshots/foo.png

This is more steps than a simple invocation of mv(1), but its utility becomes
more apparent when it's combined with aliases for quickly navigating
directories or invoked from other programs like editors and file managers.

 view all matches for this distribution


( run in 1.790 second using v1.01-cache-2.11-cpan-df04353d9ac )