view release on metacpan or  search on metacpan

lib/App/MatrixTool/Command/client/upload.pm  view on Meta::CPAN

matrixtool client upload - Upload a file to the media repository

=head1 SYNOPSIS

   $ matrixtool client -u @me:example.com upload avatar.png

=head1 DESCRIPTION

This command uploads a file to the media repository of a Matrix homeserver,
printing the returned F<mxc://> URL.

lib/App/MatrixTool/Command/client/upload.pm  view on Meta::CPAN

the MIME type can be automatically inferred for convenience.

The recognised extensions are

   .jpg, .jpeg     image/jpeg
   .png            image/png

=cut

sub run
{

lib/App/MatrixTool/Command/client/upload.pm  view on Meta::CPAN

   my $content = read_binary( $file );

   unless( defined $type ) {
      $type = "image/jpeg" if $file =~ m/\.jp[e]?g$/;
      $type = "image/png"  if $file =~ m/\.png$/;

      defined $type or
         die "Type not specified and could not guess it from the filename\n";
   }

 view release on metacpan or  search on metacpan

lib/App/Mimosa/Controller/Root.pm  view on Meta::CPAN

                                            -outputfile => "$output_file",
                                            -format     => $format,
                                            -fh         => IO::String->new( \$graph_html ),
                                            -dstDir     => $self->_app->config->{tmp_dir} || "/tmp/mimosa",
                                            -dstURL     => "/graphics/",
                                            -imgName    => $c->stash->{job_id} . '.png',
                                            );
            $graph->showGraph;

            $report_html        = $graph_html . $report;
            $c->stash->{report} = $report_html;

 view release on metacpan or  search on metacpan

lib/App/MonM/Channel/Email.pm  view on Meta::CPAN

        #    X-Bar bar
        #</Headers>

        # Attachments
        #<Attachment>
        #    Filename    screenshot.png
        #    Type        image/png
        #    Encoding    base64
        #    Disposition attachment
        #    Path        ./screenshot.png
        #</Attachment>
        #<Attachment>
        #    Filename    payment.pdf
        #    Type        application/pdf
        #    Encoding    base64

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

example/source/bar.shtml
example/source/foo.shtml
example/source/foo1.shtml
example/source/foo2.shtml
example/source/images/arrow.gif
example/source/images/bg.png
example/source/images/document.gif
example/source/index.shtml
example/source/no-header-footer.shtml
example/source/print.css
example/source/style.css

 view release on metacpan or  search on metacpan

README.md  view on Meta::CPAN

[amazon glacier]:http://aws.amazon.com/glacier/

## Version

* Version 1.120 (See [ChangeLog][mt-aws glacier changelog] or follow [@mtglacier](https://twitter.com/mtglacier) for updates)  [![Build Status](https://travis-ci.org/vsespb/mt-aws-glacier.png?branch=master)](https://travis-ci.org/vsespb/mt-aws-glacie...

[mt-aws glacier changelog]:https://github.com/vsespb/mt-aws-glacier/blob/master/ChangeLog

## Contents

 view release on metacpan or  search on metacpan

README.pod  view on Meta::CPAN

=begin html

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

=head1 App-MultiSsh

Run ssh commands to multiple servers at once with the C<mssh> command.

 view release on metacpan or  search on metacpan

lib/ChordPro/Output/Common.pm  view on Meta::CPAN

	  || Carp::croak("Unrecognized imge data in \"$src\"");
    }

    unless ( $mimetype =~ m;^(image|text)/.*; ) {
	state $mimetypes =
	  { png  => 'image/png',
	    jpg  => 'image/jpeg',
	    jpeg => 'image/jpeg',
	    gif  => 'image/gif',
	    svg  => 'image/svg+xml',
	    css  => 'text/css',

 view release on metacpan or  search on metacpan

public/javascripts/ace.js  view on Meta::CPAN

(function(){function o(n){var i=e;n&&(e[n]||(e[n]={}),i=e[n]);if(!i.define||!i.define.packaged)t.original=i.define,i.define=t,i.define.packaged=!0;if(!i.require||!i.require.packaged)r.original=i.require,i.require=r,i.require.packaged=!0}var ACE_NAMES...
                window.require(["ace/ace"], function(a) {
                    if (a) {
                        a.config.init(true);
                        a.define = window.define;
                    }

 view release on metacpan or  search on metacpan

examples/htgraph  view on Meta::CPAN

        $path->add_node($right,style=>'filled',fillcolor=>$left);
        $path->add_edge($last=>$right);
        $last = $right;
    }

    open FPNG, ">/var/www/html/nrc/navegante/$file.png";
    open FPS, ">/var/www/html/nrc/navegante/$file.ps";
    open FSVG, ">/var/www/html/nrc/navegante/$file.svg";
    print FPNG $path->as_png;
    print FPS $path->as_ps;
    print FSVG $path->as_svg;
    system "/usr/bin/ps2pdf /var/www/html/nrc/navegante/$file.ps /var/www/html/nrc/navegante/$file.pdf";
    unlink "/var/www/html/nrc/navegante/$file.ps";
    close FPNG;
    close FPS;
    close PSVG;

    print "<center><img border='1' src='http://nrc.homelinux.org/navegante/$file.png'>";

    print "<table width='50%'>";
    print "<tr bgcolor='orange'><td>Pos</td><td>URL</td></tr>";
    foreach (sort keys %estado) {
        my ($left,$right) = split /;/, $estado{$_};

 view release on metacpan or  search on metacpan

lib/App/Netdisco/Util/Graph.pm  view on Meta::CPAN

        my $graph_gif = _homepath('graph');
        info "  Creating graph: $graph_gif";
        $gv->as_gif($graph_gif);
    }

    if (defined $CONFIG{graph_png} and $CONFIG{graph_png}){
        my $graph_png = _homepath('graph_png');
        info "  Creating png graph: $graph_png";
        $gv->as_png($graph_png);
    }

    if (defined $CONFIG{graph_map} and $CONFIG{graph_map}){
        my $graph_map = _homepath('graph_map');
        info "  Creating CMAP : $graph_map";

 view release on metacpan or  search on metacpan

share/mib/CISCO-IETF-IP-MIB.my  view on Meta::CPAN

--
-- Copyright (c) 2002 by Cisco Systems, Inc.
-- All rights reserved.
-- *************************************************************
--
-- This mib is based on draft-ietf-ipngwg-rfc2011-update-00.txt.
-- In the future, this mib may be removed entirely, or re-implemented
-- on short notice.  The intent is to eventually update the IP-MIB,
-- once the final approved version of
-- draft-ietf-ipngwg-rfc2011-update-XX.txt is available,
-- and remove this CISCO-IETF-IP-MIB in its entirety.

CISCO-IETF-IP-MIB DEFINITIONS ::= BEGIN

IMPORTS

 view release on metacpan or  search on metacpan

bin/otrs.CreateTicket.pl  view on Meta::CPAN

otrs.CreateTicket.pl --Server otrs.example.com --Ssl --UserLogin myname  \
--Password secretpass --Title 'The ticket title' \
--CustomerUser customerlogin --Body 'The ticket body' \
--DynamicField Branch="Sales UK" --DynamicField Source=Monitoring \
--Attachment demo.xls --Attachment screenshot.png

Example 2: read body in from a file

otrs.CreateTicket.pl --Server otrs.example.com --Ssl --UserLogin myname  \
--Password secretpass --Title 'The ticket title' \

 view release on metacpan or  search on metacpan

lib/App/Office/CMS.pm  view on Meta::CPAN

=back

=item o What's the database schema?

See docs/cms.schema.png.

The file was created with scripts/schema.sh, which uses dbi.schema.pl.

That program is a version of dbigraph.pl, which ships with L<GraphViz::DBI>.

 view release on metacpan or  search on metacpan

lib/App/Office/Contacts.pm  view on Meta::CPAN

=back

Screen shots:

L<The database schema|http://savage.net.au/Module-reviews/images/Contacts/contacts.schema.png>.

L<Sample search results|http://savage.net.au/Module-reviews/images/Contacts/search.results.png>.

L<Sample personal details|http://savage.net.au/Module-reviews/images/Contacts/personal.details.png>.
The organizational details form is very similar.

=head1 Distributions

This module is available as a Unix-style distro (*.tgz).

lib/App/Office/Contacts.pm  view on Meta::CPAN

I have switched to plurals for the names of database tables though.

=head2 What is the database schema?

L<The database schema|http://savage.net.au/Module-reviews/images/Contacts/contacts.schema.png>.

The file was created with dbigraph.pl.

dbigraph.pl ships with C<GraphViz::DBI>. I patched it to use C<GraphViz::DBI::General>.

The command is:

	dbigraph.pl --dsn 'dbi:Pg:dbname=contacts' --user contact --pass contact > docs/contacts.schema.png

The username and password are as shipped in C<share/.htapp.office.contacts.conf>.

As always after editing the config file, run:

 view release on metacpan or  search on metacpan

script/1pif  view on Meta::CPAN

<a href="https://badge.fury.io/pl/App-OnePif">
<img alt="Current CPAN version" src="https://badge.fury.io/pl/App-OnePif.svg">
</a>

<a href="http://cpants.cpanauthors.org/dist/App-OnePif">
<img alt="Kwalitee" src="http://cpants.cpanauthors.org/dist/App-OnePif.png">
</a>

<a href="http://www.cpantesters.org/distro/A/App-OnePif.html?distmat=1">
<img alt="CPAN Testers" src="https://img.shields.io/badge/cpan-testers-blue.svg">
</a>

 view release on metacpan or  search on metacpan

lib/App/Oozie/Deploy/Validate/DAG/Workflow.pm  view on Meta::CPAN

    default => sub {},
);

has graph_filename => (
    is      => 'rw',
    default => sub { 'graph.png' },
);

has _vertex_lookup => (
    is      => 'ro',
    isa     => HashRef,

lib/App/Oozie/Deploy/Validate/DAG/Workflow.pm  view on Meta::CPAN

        require Graph::Writer::GraphViz;

        Graph::Writer::GraphViz->new(
            -edge_color => 1,
            -fontsize   => 8,
            -format     => 'png',
            -layout     => 'twopi',
            -node_color => 2,
            -ranksep    => 1.5,
        )->write_graph( $g, $file );

 view release on metacpan or  search on metacpan

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

=begin markdown

# STATUS

[![Build Status](https://travis-ci.org/gbv/App-PAIA.png)](https://travis-ci.org/gbv/App-PAIA)
[![Coverage Status](https://coveralls.io/repos/gbv/App-PAIA/badge.svg?branch=master)](https://coveralls.io/r/gbv/App-PAIA?branch=master)
[![Kwalitee Score](http://cpants.cpanauthors.org/dist/App-PAIA.png)](http://cpants.cpanauthors.org/dist/App-PAIA)

=end markdown

=head1 SYNOPSIS

 view release on metacpan or  search on metacpan

README.mkdn  view on Meta::CPAN

```

# AUTHORS

- Robert Krimen <robertkrimen@gmail.com>
- Yanick Champoux <yanick@cpan.org> [![endorse](http://api.coderwall.com/yanick/endorsecount.png)](http://coderwall.com/yanick)

# COPYRIGHT AND LICENSE

This software is copyright (c) 2018 by Robert Krimen.

 view release on metacpan or  search on metacpan

lib/App/PDF/Link.pm  view on Meta::CPAN

This will associate the built-in icon PDF with filename extension C<pdf>.

Alternatively, an image file may be specified to add user defined icons.

  --icons=pdf=builtin:myicons/pdficon.png

The following icons are built-in. By default, only MuseScore and
iRealPro icons are associated and all other filename extensions will
be skipped. When pdflink is run with command line option B<--all>, all
built-in icons will be associated and all matching files will get

lib/App/PDF/Link.pm  view on Meta::CPAN

Associated to filename extension C<pdf> (generic PDF document).

=item PNG

Associated to filename extension C<png> (PNG image).

=item JPG

Associated to filename extensions C<jpg> and C<jpeg> (JPG image).

 view release on metacpan or  search on metacpan

bin/pft-edit  view on Meta::CPAN

which concurs to define the path of the picture.  In other words, the C</>
symbol will work as path separator regardless of the operating system.

HTML Example:

    <!-- ROOT/content/pics/test.png -->
    <img src=":pic:test.png"/>

Markdown Example:

    <!-- ROOT/content/pics/cars/golf.png -->
    ![](:pic:cars/golf.png)

=head3 URLs:

Regular URLs in C<E<lt>aE<gt>> tags accept the following special
prefixes:

 view release on metacpan or  search on metacpan

lib/App/PLab/ImageApp.pm  view on Meta::CPAN

   my $w = $_[0];
   my $num = $w-> {cypherMask};
   my $file = $w->{file};
   return unless $file;
   my ($fileNum, $fileBeg, $fileEnd, $ff);
   if ( $file =~ /(.*)(\d{$num})(\.(?:tif|gif|jpg|bmp|pcx|png))$/i) {
      ($fileBeg,$fileNum,$fileEnd) = ($1,$2,$3);
      $w-> {prevFile} = $ff
         if ( $fileNum > 0) && ( -f ($ff = sprintf("%s%0${num}d%s",$fileBeg,$fileNum-1,$fileEnd)));
      $w-> {nextFile} = $ff
         if ( $fileNum < 10 ** $num - 1) && ( -f ($ff = sprintf("%s%0${num}d%s",$fileBeg,$fileNum+1,$fileEnd)));

lib/App/PLab/ImageApp.pm  view on Meta::CPAN

      cwd         => 1,
      directory   => $w->{ini}->{path},
      filterIndex => 0,
      multiSelect => 0,
      filter      => [
         ['Images' => '*.bmp;*.pcx;*.gif;*.jpg;*.png;*.tif'],
         ['All files' => '*.*'],
      ]
   );
   if ( defined $w->{file} && $w-> {file} =~ /([^\\\/]*)$/) {
      my $fname = $1;

lib/App/PLab/ImageApp.pm  view on Meta::CPAN

   $dir = '' unless -d $dir;
   my $d = $w->{fileserDlg} ? $w->{fileserDlg} : App::PLab::SerOpenDialog-> create(
      owner     => $w,
      directory => $dir,
      filter    => [
        ['Images' => '*.bmp;*.pcx;*.gif;*.jpg;*.png;*.tif'],
        ['All files' => '*.*'],
      ]
   );
   $w-> iv_cancelmode( $w-> IV);
   if ( $d-> execute) {

lib/App/PLab/ImageApp.pm  view on Meta::CPAN

   my $num = $w->{cypherMask};
   my $fbeg = $w->{fileBeg};
   $fbeg =~ s{.*[/\\]([^/\\]*)$}{$1};

   for (@d) {
      next unless /(.*)(\d{$num})(\.(?:tif|gif|jpg|bmp|pcx|png))$/i;
      next unless $1 eq $fbeg and $3 eq $w->{fileEnd};
      $bix[ $2] = 1;
   }

   for ( $i = $w->{fileNum}; $i >= $min; $i--) {

 view release on metacpan or  search on metacpan

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

                : $self->_make_options;

    my $proc = $self->proc;
    my %out;
    @out{ qw(stdout stderr status msg) }
    = $proc->run( [ 'pngcrush', @options, $in ] );

    return $self->_set_error("Proc::Reliable error: $out{error}")
        if defined $out{error};

    return $self->_set_error("File $in does not seem to exist")

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

=encoding utf8

=head1 NAME

App::PNGCrush - Perl wrapper around ``pngcrush'' program

=head1 SYNOPSIS

    use strict;
    use warnings;

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

    $crush->set_options(
        qw( -d OUT_DIR -brute 1 ),
        remove  => [ qw( gAMA cHRM sRGB iCCP ) ],
    );

    my $out_ref = $crush->run('picture.png')
        or die "Error: " . $crush->error;

    print "Size reduction: $out_ref->{size}%\n"
                . "IDAT reduction: $out->{idat}%\n";

=head1 DESCRIPTION

The module is a simple wrapper around ``pngcrush'' program. The program
is free open source and you can obtain it from
L<http://pmt.sourceforge.net/pngcrush/> on Debian systems you
can find it in the repos: C<sudo -H apt-get install pngcrush>

I needed this module to utilize only little subsection of C<pngcrush>'s
functionality, if you would like some features added, I am more than open
for suggestions.

=head1 CONSTRUCTOR

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

    my $crush = App::PNGCrush->new( max_time => 300 );

Creates a new App::PNGCrush object. Arguments are optional and passed
as key/value pairs with keys being L<Proc::Reliable> methods and values
being the values for those methods, here you can set some options
controlling how C<pngcrush> will be run. Generally, you'd worry only
about C<max_time> (which B<defaults> to C<300> seconds in C<App::PNGCrush>)
and set it to a higher value if you are about to process large images
with brute force.

=head1 METHODS

=head2 C<run>

    my $results_ref = $crush->run('pic.png')
        or die $crush->error;

    my $results_ref = $crush->run('pic.png', opts => [ qw(custom stuff) ] );

Instructs the object to run C<pngcrush>. The first argument is mandatory
and must be a filename which will be passed to C<pngcrush> as input file.
Takes one optional argument (so far), which is passed as key/value
pair; the key being C<opts> and value being an arrayref of custom options
you want to give to C<pngcrush> (those will bypass shell processing).
Generally the custom options option is in here "just in case" and B<you
are recommended to set options via individual methods or C<set_options()>
method (see below).>

Returns either C<undef> or an empty list (depending on the context)

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

                    'encoding' => '0.150'
        },
        'stderr' => '',
        'status' => '0',
        'idat' => '0.80',
        'stdout' => '| pngcrush 1.6.4 .. blah blah full STDOUT here',
        'size' => '1.56'
    };

=head3 C<size>

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

=head3 C<stderr>

    { 'stderr' => '', }

The C<stderr> key will contain any collected data from STDERR while
C<pngcrush> was running.

=head3 C<stdout>

    { 'stdout' => '| pngcrush 1.6.4 .. blah blah full STDOUT here', }

The C<stdout> key will contain any collected data from STDOUT while
C<pngcrush> was running.

=head3 C<status>

    { 'status' => '0' }

The C<status> key will contain the exit code of C<pngcrush>.

=head2 C<error>

    my $ret_ref = $crush->run('some.png')
        or die $crush->error;

If C<run> failed it will return either C<undef> or an empty list depending
on the context and the reason for failure will be available via C<error()>
method. Takes no arguments, returns a human parsable error message

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

        qw( -d OUT_DIR -brute 1 ),
        remove  => [ qw( gAMA cHRM sRGB iCCP ) ],
    );

Always returns a true value. Sets the options with which to run
C<pngcrush>. As argument takes a list of key/value pairs of
either standard C<pngcrush> options or more verbose names this module
offers (see below). If you want to B<repeat> certain option pass values
as B<an arrayref>, thus if on a command line you'd write
C<< pngcrush -rem gAMA -rem cHRM -rem sRGB ... >> you'd use
C<< ->set_options( '-rem' => [ qw( gAMA cHRM sRGB iCPP ) ] ) >>.

B<Note:> if C<pngcrush> option does not take an argument you B<must>
give it a value of C<1> when setting it via C<set_options()> method.
For C<-v> option you can set it to value C<2> to repeat twice
(aka uber verbose). B<Same applies> to individual option setting methods.

B<Note 2:> call to C<set_options()> will call C<reset_options()> method
(see below) before setting any of your options, thus whatever you
don't specify will not be passed to C<pngcrush>

=head2 C<reset_options>

    $crush->reset_options;

Always returns a true value, takes no arguments. Instructs the object
to reset all C<pngcrush> options.

=head2 individual option methods

Module provides methods to set (almost) all C<pngcrush> options individually
You'd probably would want to use C<set_options()> method (see above)
in most cases. See C<set_options()> method which describes how to
repeat options and how to set options which take no arguments in
C<pngcrush>. The following is the list of methods (on the left) and
corresponding C<pngcrush> options they set (on the right); some
options were deemed useless to the module and were not included
(this is as of C<pngcrush> version 1.6.4):

    already_size            -already
    bit_depth               -bit_depth
    background              -bkgd
    brute_force             -brute

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

    strategy                -z
    insert_ztxt             -zitxt
    ztxt                    -ztxt
    verbose                 -v

See C<pngcrush> manpage (C<man pngcrush> or C<pngcrush -v>)
for descriptions of these options.

Out of those listed above the following C<pngcrush> options do not take
arguments,
thus to set these you'd need to pass C<1> as an argument to the option
setting method (except for C<verbose> which can take a value of C<2> to
indicate double verboseness (equivalent to passing C<-v -v> to
C<pngcrush>)

    brute_force
    color_counting
    double_image_gamma
    fix_fatal

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

Zoffix Znet, C<< <zoffix at cpan.org> >>
(L<http://zoffix.com>, L<http://haslayout.net>)

=head1 BUGS

Please report any bugs or feature requests to C<bug-app-pngcrush at rt.cpan.org>, or through
the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=App-PNGCrush>.  I will be notified, and then you'll
automatically be notified of progress on your bug as I make changes.

=head1 SUPPORT

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

Changes
LICENSE
META.json
README.md
cpanfile
img/example-critical.png
img/example-warnings.png
lib/App/PPE.pm
minil.toml
script/ppe
t/00_compile.t
t/01_basic.t

 view release on metacpan or  search on metacpan

README.pod  view on Meta::CPAN

=pod

=begin html

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

=end html

=head1 App-PS1

README.pod  view on Meta::CPAN

Basic:

=begin html

<img src="https://ivanwills.github.io/App-PS1/img/ps1.png" alt="">

=end html

After running C<$ perlbrew use perl-bleed>

=begin html

<img src="https://ivanwills.github.io/App-PS1/img/ps1-perlbrew.png" alt="" />

=end html

After running C<$ nvm use v0.12.4>

=begin html

<img src="https://ivanwills.github.io/App-PS1/img/ps1-node.png" alt="" />

=end html

=head1 INSTALLATION

 view release on metacpan or  search on metacpan

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

use Periscope;

my $URL   = 'http://pandora.com';
my $TITLE = 'Pandora Periscope';
my $ICON  = File::Spec->join(dirname(__FILE__), '..', '..', 'extra', 'Pandora.png');

sub exec {
	Periscope->new(address => $URL, title => $TITLE, icon => $ICON, width => 800, height => 600)->show;
}

 view release on metacpan or  search on metacpan

README.md  view on Meta::CPAN

    % package2plantumlclassdiagram PATH_TO_MODULES > a.plantuml

Then, render a.plantuml with PlantUML.

    % GRAPHVIZ_DOT=$(which dot) plantuml -charset UTF-8 -tpng a.plantuml
    % open a.png

# PLOT ALL MODULES I YOUR PROJECT

Like this.

 view release on metacpan or  search on metacpan

lib/App/Phoebe/Capsules.pm  view on Meta::CPAN

  # fallback
  return 'text/gemini' if /\.gmi$/i;
  return 'text/plain' if /\.te?xt$/i;
  return 'text/markdown' if /\.md$/i;
  return 'text/html' if /\.html?$/i;
  return 'image/png' if /\.png$/i;
  return 'image/jpeg' if /\.jpe?g$/i;
  return 'image/gif' if /\.gif$/i;
  return 'application/octet-stream';
}

 view release on metacpan or  search on metacpan

t/01-photo-library.t  view on Meta::CPAN

my $config = App::Photobear::loadconfig("$RealBin/photobear.ini");

ok($config->{"api_key"}, "API key is set");
ok($config->{"api_key"} eq "$api_check", "API key is correct: $api_check");

my $got = App::Photobear::url_exists("https://www.github.com/telatin.png");
ok(defined $got, "Answer received: $got [ignoring failure]");

my $badgot = App::Photobear::url_exists("https://www.telatin.com/sadly-not-existing.png");
ok($badgot == 0, "Answer received: $badgot (expecting failure)");
done_testing();

 view release on metacpan or  search on metacpan

eg/duckduckgo.json  view on Meta::CPAN

{"DefinitionSource":"TheFreeDictionary","Heading":"Poe","RelatedTopics":[{"Result":"<a href=\"http://duckduckgo.com/Edgar_Allan_Poe\">Poe</a> most often refers to Edgar Allan Poe the American writer.","Icon":{"URL":"http://i.duck.co/i/c96dee09.png"},...

 view release on metacpan or  search on metacpan

lib/App/Pipeline/Simple.pm  view on Meta::CPAN

    }
    return $g->as_dot;

    $self->logger->info("Graphing done. Process the dot ".
			 "file (e.g. dot -Tpng p.dot|display " );

}

1;