Next refresh should show more results. ( run in 2.354 )
view release on metacpan or search on metacpan
lib/A1z/HTML5/Template.pm view on Meta::CPAN
return qq{$return<!--360-->};
}
else
{
$out .= qq{<meta name="description" content="HTML5 by Business Impact Solutions - bislinks.com"/><!--364-->};
# add default meta if user has not called one of his own
return qq{$out};
}
}
lib/A1z/HTML5/Template.pm view on Meta::CPAN
# add hidden fields/values # from $form_vars[4]
for (@hidden)
{
my ($name, $value) = split(/\-\-\-/, $_, 2) if $_;
$out .= qq{\n\t<input type="hidden" name="$name" value="$value"/>} if $_;
}
# add select
$out .= qq{$select};
$out .= qq{\n\t<button type="submit" class="btn btn-default">Submit</button>\n</form>\n};
lib/A1z/HTML5/Template.pm view on Meta::CPAN
# But, just remove symbols in both $h1 and $div
$div =~ s!^(==|\#|--)!!g;
$h1 =~ s!^(==|\#|--)!!g;
$out .= qq{\t\t<h4 class="dialog-header">$h1</h4>\n\t\t<div class="dialog-content">$div <hr/></div>\n};
}
else
{
$out .= qq{$h1 $div}; # or $line
}
lib/A1z/HTML5/Template.pm view on Meta::CPAN
<span class="type type-$in{output_type}">Type:$in{output_type} </span>
</div>
<div>
<textarea name="ta-$type" id="ta-$type" rows="5" cols="98%" class="type-$in{output_type}">$type , $content</textarea>
</div>
<br/>
`;
}
$out .= qq{<input type='submit' value="Save"></form></article>};
lib/A1z/HTML5/Template.pm view on Meta::CPAN
if (-e -f "$in{file}")
{
# First, get file content to backup to another file
open(F, "$in{file}") or $in{error} .= "#1565 Unable to open file for reading. '$!' <br/>";
my @f = <F>;
# save original file content to backup file
open(BAK, ">$in{file},bak.txt") or $in{error} .= "#1570 Unable to create backup file '$in{file},bak.txt' '$!' <br/>";
for (@f)
{
print BAK qq{$_};
}
close BAK;
close F;
# recreate file, thereby deleting original content
open(DEL, ">$in{file}") or $in{error} .= "#1579 Unable to recreate file '$in{file}' '$!' <br/>";
print DEL "File ReCreated";
close DEL;
my %out;
for (keys %vars)
lib/A1z/HTML5/Template.pm view on Meta::CPAN
$out{"$name"} = "$value";
}
# Insert/Add new content
open(FILE, ">$in{file}") or $in{error} .= "#1582 Error writing to file '$in{file}' '$!' <br/>";
for (keys %out)
{
print FILE qq{$_\|$out{$_}\n};
}
close FILE;
view release on metacpan or search on metacpan
inc/Devel/CheckLib.pm view on Meta::CPAN
This is a very early release intended primarily for feedback from
people who have discussed it. The interface may change and it has
not been adequately tested.
Feedback is most welcome, including constructive criticism.
Bug reports should be made using L<http://rt.cpan.org/> or by email.
When submitting a bug report, please include the output from running:
perl -V
perl -MDevel::CheckLib -e0
view release on metacpan or search on metacpan
lib/AAC/Pvoice/Bitmap.pm view on Meta::CPAN
{
my $radius = 10;
my $svg = <<SVG;
<svg width="$x" height="$y" viewBox="0 0 $x $y">
<rect x="0" y="0" width="$x" height="$y" ry="$radius"
style="stroke: none; fill: $ibg;"/>
</svg>
SVG
my $background=Image::Magick->new(magick => 'svg');
$background->Set('background' => $pbg);
$background->blobtoimage($svg);
view release on metacpan or search on metacpan
lib/ACL/Lite.pm view on Meta::CPAN
L<http://cpanratings.perl.org/d/ACL-Lite>
=item * Search CPAN
L<http://search.cpan.org/dist/ACL-Lite/>
=back
=head1 ACKNOWLEDGEMENTS
view release on metacpan or search on metacpan
lib/ACME/MBHall.pm view on Meta::CPAN
L<http://cpanratings.perl.org/d/ACME-MBHall>
=item * Search CPAN
L<http://search.cpan.org/dist/ACME-MBHall/>
=back
=head1 ACKNOWLEDGEMENTS
view release on metacpan or search on metacpan
lib/ACME/MyFirstModule/SETHS.pm view on Meta::CPAN
L<http://cpanratings.perl.org/d/ACME-MyFirstModule-SETHS>
=item * Search CPAN
L<http://search.cpan.org/dist/ACME-MyFirstModule-SETHS/>
=back
=head1 ACKNOWLEDGEMENTS
view release on metacpan or search on metacpan
lib/ACME/PM/Voronezh.pm view on Meta::CPAN
=over 4
=item * Voronezh.PM
L<http://voronezh.pm.org/>
=item * Mailing list
L<http://groups.google.com/group/voronezh-pm>
lib/ACME/PM/Voronezh.pm view on Meta::CPAN
L<http://twitter.com/voronezh_pm>
=item * Search CPAN
L<http://search.cpan.org/dist/ACME-PM-Voronezh/>
=back
=head1 AUTHOR
view release on metacpan or search on metacpan
lib/ACME/QuoteDB.pm view on Meta::CPAN
L<http://cpanratings.perl.org/d/ACME-QuoteDB>
=item * Search CPAN
L<http://search.cpan.org/dist/ACME-QuoteDB/>
=back
=head1 ACKNOWLEDGEMENTS
view release on metacpan or search on metacpan
lib/ACME/THEDANIEL/Utils.pm view on Meta::CPAN
L<http://cpanratings.perl.org/d/ACME-THEDANIEL-Utils>
=item * Search CPAN
L<http://search.cpan.org/dist/ACME-THEDANIEL-Utils/>
=back
=head1 ACKNOWLEDGEMENTS
view release on metacpan or search on metacpan
lib/ACME/YAPC/NA/2012.pm view on Meta::CPAN
L<http://cpanratings.perl.org/d/ACME-YAPC-NA-2012>
=item * Search CPAN
L<http://search.cpan.org/dist/ACME-YAPC-NA-2012/>
=back
=head1 ACKNOWLEDGEMENTS
view release on metacpan or search on metacpan
lib/ACME/ltharris.pm view on Meta::CPAN
L<http://cpanratings.perl.org/d/ACME-ltharris>
=item * Search CPAN
L<http://search.cpan.org/dist/ACME-ltharris/>
=back
=head1 ACKNOWLEDGEMENTS
view release on metacpan or search on metacpan
lib/ADAMK/Release.pm view on Meta::CPAN
Adam Kennedy E<lt>adamk@cpan.orgE<gt>
=head1 SEE ALSO
L<http://ali.as/>
=head1 COPYRIGHT
Copyright 2013 Adam Kennedy.
view release on metacpan or search on metacpan
lib/AE/AdHoc.pm view on Meta::CPAN
L<http://cpanratings.perl.org/d/AE-AdHoc>
=item * Search CPAN
L<http://search.cpan.org/dist/AE-AdHoc/>
=back
=head1 SEE ALSO
view release on metacpan or search on metacpan
of either this module or C<Devel::PPPort> are available on CPAN
before sending a bug report.
If F<ppport.h> was generated using the latest version of
C<Devel::PPPort> and is causing failure of this module, please
file a bug report here: L<https://github.com/mhx/Devel-PPPort/issues/>
Please include the following information:
=over 4
view release on metacpan or search on metacpan
lib/AFS/PAG.pm view on Meta::CPAN
=head1 SEE ALSO
aklog(1)
The current version of this module is always available from its web site
at L<http://www.eyrie.org/~eagle/software/afs-pag/>.
=cut
view release on metacpan or search on metacpan
src/Makefile.PL view on Meta::CPAN
}
my $version = `./a.out` || die "\nCould not run test code to retrieve the version of AFS system libraries...\n";
unlink 'a.out', 'fotav.c';
my ($v_string, $v_numb) = ('', '');
if ($version =~ />(\S+?)\s+(\S+)</) {
$v_string = $1;
$v_numb = version->new($2);
}
elsif ($version =~ />(\S+?)</) {
$v_string = 'Transarc/IBM AFS';
$v_numb = version->new($1);
}
if ($v_numb =~ /3.[4,5]/) {
view release on metacpan or search on metacpan
example/lava_lamp.pl view on Meta::CPAN
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with lava_lamp.pl. If not, see <http://www.gnu.org/licenses/>.
=head1 AUTHOR
roland@cpan.org
view release on metacpan or search on metacpan
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>.