B-Keywords-1.13/000075500000000000000000000000001213261237300134225ustar00rootroot00000000000000B-Keywords-1.13/Changes000064400000000000000000000057221213261237300147230ustar00rootroot00000000000000Revision history for Perl extension B::Keywords. 0.01 Mar 21, 2003 - original version; created by h2xs 1.5 with options -X -P -n B::Keywords 0.02 Mar 24, 2003 - Added Makefile.PL wrapper for Build.PL - Added $a and $b to @Symbols 0.03 Jul 4, 2003 - Fixed formatting - (probably made some other changes I now forget) 0.04 Jul 8, 2003 - Added tests per Josts K's request - Added 'use 5.006' because this isn't coded for pre 5.6 0.05 Jul 8 2003 - Added the test and license file to MANIFEST so it actually gets packaged and doesn't just stay in my CVS directory. Boy am I dork. 0.06 Aug 7, 2003 - 5.005_03 compatible. - Added SIGNATURE 1.00 Dec 29, 2005 - Added keywords for 5.10 - More tests 1.01 Jan 22, 2006 - Added some variables from 5.10 - Stuff is exportable now 1.02 Jul 7, 2006 - Added test to watch CORE/keywords.h for new stuff - Added -x and state to @Functions. 1.03 Aug 17, 2006 - Separated non-functions in @Functions to @Barewords - Used qw() lists 1.04 Aug 17, 2006 - Fixed syntax bugx in 1.03 1.05 Nov 24, 2006 - Added UNITCHECK 1.07 Feb 14, 2007 - Added EQ GE GT NE LE LT for 5.6. 1.08 - Removed useless author tests 1.09 - 856e84486be2089095a27b18f1344eca29a9ff50 Update administrivia in docs - b41ee8b135c9d2e0e7eda38dc17f3327f60f1cda $\ was missing from @Scalars. - a64e7f604687eda699fe778bcb070f3e715741b0 @Functions missing from @Symbols - bb14cdd3b3e5223fbb904cfbbe87fbcb5f6d8db2 Fix use B::Keywords qw(:all); 1.10 - Fix typo in SYNOPSIS 1.11 rafl - Add new keywords for 5.16, __SUB__ and evalbytes. 1.12 rurban - Add new keyword fc (Unicode casefolding) for 5.16 added with commit 838f2281 - added diag before each big t/11keywords.t loop 1.13 rurban - removed diag before each big t/11keywords.t loop - added suggested keywords from RT #62382: *_ and DATA to @FileHandles (the deprecated lowercase: stdin, stdout, stderr not), import unimport to @Functions, BINMODE CLEAR CLEARERR CLONE CLONE_SKIP CLOSE DELETE EOF ERROR EXISTS EXTEND FDOPEN FETCH FETCHSIZE FILENO FILL FIRSTKEY FLUSH GETC NEXTKEY OPEN POP POPPED PRINT PRINTF PUSH PUSHED READ READLINE SCALAR SEEK SETLINEBUF SHIFT SPLICE STORE STORESIZE SYSOPEN TELL TIEARRAY TIEHANDLE TIEHASH TIESCALAR UNREAD UNSHIFT UNTIE UTF8 WRITE to @TieIOMethods, can isa DOES VERSION to @UNIVERSALMethods, @EXPORT @EXPORT_OK @EXPORT_FAIL @EXPORT_TAGS _push_tags _rebuild_cache as_heavy export export_fail export_fail_in export_ok_tags export_tags export_to_level heavy_export heavy_export_ok_tags heavy_export_tags heavy_export_to_level heavy_require_version require_version to @ExporterSymbols (Zsbán Ambrus) - Moved exp from @Barewords to @Functions - Added $^CHILD_ERROR_NATIVE $^GLOBAL_PHASE $^LAST_FH $^MATCH $^PREMATCH $^POSTMATCH $^UTF8CACHE $^WIN32_SLOPPY_STAT to @Scalars - Added English names for %!, @F (perlrun) and @ARG for @_ (Zsbán Ambrus) - Added %+ %- (Zsbán Ambrus) and $LAST_SUBMATCH_RESULT B-Keywords-1.13/LICENSE000064400000000000000000000004541213261237300144320ustar00rootroot00000000000000Copyright 2003, Joshua b. Jore. All rights reserved. This program is free software; you can redistribute it and/or modify it under the terms of either: a) the GNU General Public License as published by the Free Software Foundation; version 2, or b) the "Artistic License" which comes with Perl.B-Keywords-1.13/MANIFEST000064400000000000000000000007061213261237300145560ustar00rootroot00000000000000Changes lib/B/Keywords.pm LICENSE Makefile.PL MANIFEST This list of files README t/10basic.t t/11keywords.t t/export.t t/z_kwalitee.t t/z_meta.t t/z_perl_minimum_version.t t/z_pod-coverage.t t/z_pod.t META.yml Module YAML meta-data (added by MakeMaker) META.json Module JSON meta-data (added by MakeMaker) SIGNATURE Public-key signature (added by MakeMaker) B-Keywords-1.13/META.json000064400000000000000000000020471213261237300150460ustar00rootroot00000000000000{ "abstract" : "Lists of reserved barewords and symbol names", "author" : [ "Joshua ben Jore " ], "dynamic_config" : 1, "generated_by" : "ExtUtils::MakeMaker version 6.64, CPAN::Meta::Converter version 2.120921", "license" : [ "unknown" ], "meta-spec" : { "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec", "version" : "2" }, "name" : "B-Keywords", "no_index" : { "directory" : [ "t", "inc" ] }, "prereqs" : { "build" : { "requires" : { "ExtUtils::MakeMaker" : "0" } }, "configure" : { "requires" : { "ExtUtils::MakeMaker" : "0" } }, "runtime" : { "requires" : { "B" : "0" } } }, "release_status" : "stable", "resources" : { "license" : [ "http://dev.perl.org/licenses/" ], "repository" : { "url" : "http://github.com/rurban/b-keywords" } }, "version" : "1.13" } B-Keywords-1.13/META.yml000064400000000000000000000011261213261237300146730ustar00rootroot00000000000000--- abstract: 'Lists of reserved barewords and symbol names' author: - 'Joshua ben Jore ' build_requires: ExtUtils::MakeMaker: 0 configure_requires: ExtUtils::MakeMaker: 0 dynamic_config: 1 generated_by: 'ExtUtils::MakeMaker version 6.64, CPAN::Meta::Converter version 2.120921' license: unknown meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html version: 1.4 name: B-Keywords no_index: directory: - t - inc requires: B: 0 resources: license: http://dev.perl.org/licenses/ repository: http://github.com/rurban/b-keywords version: 1.13 B-Keywords-1.13/Makefile.PL000064400000000000000000000016631213261237300154020ustar00rootroot00000000000000#!perl -w # $Id: /src/B-Keywords/trunk/Makefile.PL 189 2006-08-17T14:36:23.798783Z josh $ use ExtUtils::MakeMaker; WriteMakefile( 'NAME' => 'B::Keywords', 'VERSION_FROM' => 'lib/B/Keywords.pm', 'ABSTRACT_FROM' => 'lib/B/Keywords.pm', 'AUTHOR' => 'Joshua ben Jore ', 'SIGN' => 1, 'PREREQ_PM' => { 'B' => 0, }, depend => { 'README' => 'lib/B/Keywords.pm' }, ($ExtUtils::MakeMaker::VERSION gt '6.46' ? ('META_MERGE' => { resources => { repository => 'http://github.com/rurban/b-keywords', license => 'http://dev.perl.org/licenses/', }, } ) : ()), ); package MY; use Config; sub depend { " README : \$(VERSION_FROM) pod2text \$(VERSION_FROM) > README release : dist git commit -a -m\"release \$(VERSION)\" git tag \$(VERSION) cpan-upload \$(DISTVNAME).tar\$(SUFFIX) git push git push --tags " } B-Keywords-1.13/README000064400000000000000000000020611213261237300143010ustar00rootroot00000000000000NAME B::Keywords - Lists of reserved barewords and symbol names SYNOPSIS use B::Keywords; print join "\n", @B::Keywords::Symbols, @B::Keywords::Barewords; DESCRIPTION B::Keywords supplies seven arrays of keywords: @Scalars, @Arrays, @Hashes, @Filehandles, @Symbols, @Functions and @Barewords. The @Symbols array includes the contents of each of @Scalars, @Arrays, @Hashes and @Filehandles. Similarly, @Barewords adds a few non-function keywords (like __DATA__, NULL) to the @Functions array. All additions and modifications are welcome. SEE ALSO keywords.pl from the perl source, perlvar, perlfunc, perldelta. AUTHOR Joshua ben Jore COPYRIGHT AND LICENSE Copyright 2007, Joshua ben Jore. All rights reserved. This program is free software; you can redistribute it and/or modify it under the terms of either: a) the GNU General Public License as published by the Free Software Foundation; version 2, or b) the "Artistic License" which comes with Perl. B-Keywords-1.13/SIGNATURE000064400000000000000000000032051213261237300147060ustar00rootroot00000000000000This file contains message digests of all files listed in MANIFEST, signed via the Module::Signature module, version 0.70. To verify the content in this distribution, first make sure you have Module::Signature installed, then type: % cpansign -v It will check each file's integrity, as well as the signature's validity. If "==> Signature verified OK! <==" is not displayed, the distribution may already have been compromised, and you should not run its Makefile.PL or Build.PL. -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 SHA1 4fd4f295bef51b341d005ff4c8853d81e9b59873 Changes SHA1 0e987cce2b4e94a4d6920e7353f8674a4462528a LICENSE SHA1 46ec9231f2152e6fcf554de076272a1fc03e0a72 MANIFEST SHA1 2b446deddab81b5ed2712e17213c234d4beb78d9 META.json SHA1 3bee5f7a51f960701f21044adfd4e83c1a6a09cf META.yml SHA1 30135cfc198eb4d8eec4d5c35a1a1f23f19ebc00 Makefile.PL SHA1 a53710b3f8ae9645adcdf4bae864206b330c15af README SHA1 ea460dfca2b97db341e7da3b18e1ef26b0a22a5b lib/B/Keywords.pm SHA1 26eebf3bf6177dc6fc7f91890c68c05b7a61fbe1 t/10basic.t SHA1 d977811d4f33d71a1b515fc6eb96d1bb4184bbd5 t/11keywords.t SHA1 e6872ebfbccb57ef102945ddd11d131453024ea3 t/export.t SHA1 a68085c94808f024eb2ed76ce73ea439f0ed6d48 t/z_kwalitee.t SHA1 993b3cef8c06a70d99829facf76140864eb57240 t/z_meta.t SHA1 ade48e2b6098a0a329312543e1451e7e7fb7bc5f t/z_perl_minimum_version.t SHA1 db4c7c6e1b7cf2bd96d86fa303fd2225b8bf8613 t/z_pod-coverage.t SHA1 c8aa3903d3aba84c19bbd94d677620c758fa07d5 t/z_pod.t -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.12 (GNU/Linux) iEYEARECAAYFAlFfMpEACgkQmm2SYo/9yULfGQCfXqmtTZRKDXwA9V7gfAjGzp/f GTcAnA/5fqAwLqsAqRx6GxCqkol7rPW7 =mVku -----END PGP SIGNATURE----- B-Keywords-1.13/lib/000075500000000000000000000000001213261237300141705ustar00rootroot00000000000000B-Keywords-1.13/lib/B/000075500000000000000000000000001213261237300143515ustar00rootroot00000000000000B-Keywords-1.13/lib/B/Keywords.pm000064400000000000000000000241401213261237300165170ustar00rootroot00000000000000## no critic (PodSections,UseWarnings,Interpolation,EndWithOne,NoisyQuotes) package B::Keywords; use strict; require Exporter; *import = *import = \&Exporter::import; use vars qw( @EXPORT_OK %EXPORT_TAGS ); @EXPORT_OK = qw( @Scalars @Arrays @Hashes @Filehandles @Symbols @Functions @Barewords @TieIOMethods @UNIVERSALMethods @ExporterSymbols ); %EXPORT_TAGS = ( 'all' => \@EXPORT_OK ); use vars '$VERSION'; $VERSION = '1.13'; use vars '@Scalars'; @Scalars = ( qw( $a $b $_ $ARG $& $MATCH $` $PREMATCH $' $POSTMATCH $+ $LAST_PAREN_MATCH $* $MULTILINE_MATCHING $. $INPUT_LINE_NUMBER $NR $/ $INPUT_RECORD_SEPARATOR $RS $| $OUTPUT_AUTO_FLUSH ), '$,', qw( $OUTPUT_FIELD_SEPARATOR $OFS $\ $OUTPUT_RECORD_SEPARATOR $ORS $" $LIST_SEPARATOR $; $SUBSCRIPT_SEPARATOR $SUBSEP ), '$#', qw( $OFMT $% $FORMAT_PAGE_NUMBER $= $FORMAT_LINES_PER_PAGE $- $FORMAT_LINES_LEFT $~ $FORMAT_NAME $^ $FORMAT_TOP_NAME $: $FORMAT_LINE_BREAK_CHARACTERS $? $CHILD_ERROR $^CHILD_ERROR_NATIVE $! $ERRNO $OS_ERROR $@ $EVAL_ERROR $$ $PROCESS_ID $PID $< $REAL_USER_ID $UID $> $EFFECTIVE_USER_ID $EUID ), '$(', qw( $REAL_GROUP_ID $GID ), '$)', qw( $EFFECTIVE_GROUP_ID $EGID $0 $PROGRAM_NAME $[ $] $^A $ACCUMULATOR $^C $COMPILING $^CHILD_ERROR_NATIVE $^D $DEBUGGING $^E $EXTENDED_OS_ERROR $^ENCODING $^F $SYSTEM_FD_MAX $^GLOBAL_PHASE $^H $^I $INPLACE_EDIT $^L $FORMAT_FORMFEED $^LAST_FH $^M $^MATCH $^N $LAST_SUBMATCH_RESULT $^O $OSNAME $^OPEN $^P $PERLDB $^PREMATCH $^POSTMATCH $^R $LAST_REGEXP_CODE_RESULT $^RE_DEBUG_FLAGS $^RE_TRIE_MAXBUF $^S $EXCEPTIONS_BEING_CAUGHT $^T $BASETIME $^TAINT $^UNICODE $^UTF8CACHE $^UTF8LOCALE $^V $PERL_VERSION $^W $WARNING $^WARNING_BITS $^WIDE_SYSTEM_CALLS $^WIN32_SLOPPY_STAT $^X $EXECUTABLE_NAME $ARGV ), ); use vars '@Arrays'; @Arrays = qw( @+ $LAST_MATCH_END @- @LAST_MATCH_START @ARGV @F @INC @_ @ARG ); use vars '@Hashes'; @Hashes = qw( %OVERLOAD %+ %LAST_MATCH_END %- %LAST_MATCH_START %! %OS_ERROR %ERRNO %^H %INC %ENV %SIG ); use vars '@Filehandles'; @Filehandles = qw( *ARGV ARGV *_ _ ARGVOUT DATA STDIN STDOUT STDERR ); use vars '@Functions'; @Functions = qw( __SUB__ AUTOLOAD BEGIN DESTROY END INIT CHECK UNITCHECK abs accept alarm atan2 bind binmode bless break caller chdir chmod chomp chop chown chr chroot close closedir connect cos crypt dbmclose dbmopen defined delete die dump each endgrent endhostent endnetent endprotoent endpwent endservent eof eval evalbytes exec exists exit exp fc fcntl fileno flock fork format formline getc getgrent getgrgid getgrnam gethostbyaddr gethostbyname gethostent getlogin getnetbyaddr getnetbyname getnetent getpeername getpgrp getppid getpriority getprotobyname getprotobynumber getprotoent getpwent getpwnam getpwuid getservbyname getservbyport getservent getsockname getsockopt glob gmtime goto grep hex index int import ioctl join keys kill last lc lcfirst length link listen local localtime log lstat map mkdir msgctl msgget msgrcv msgsnd my next not oct open opendir ord our pack pipe pop pos print printf prototype push quotemeta rand read readdir readline readlink readpipe recv redo ref rename require reset return reverse rewinddir rindex rmdir say scalar seek seekdir select semctl semget semop send setgrent sethostent setnetent setpgrp setpriority setprotoent setpwent setservent setsockopt shift shmctl shmget shmread shmwrite shutdown sin sleep socket socketpair sort splice split sprintf sqrt srand stat state study substr symlink syscall sysopen sysread sysseek system syswrite tell telldir tie tied time times truncate uc ucfirst umask undef unlink unimport unpack unshift untie use utime values vec wait waitpid wantarray warn write -r -w -x -o -R -W -X -O -e -z -s -f -d -l -p -S -b -c -t -u -g -k -T -B -M -A -C ); use vars '@Barewords'; @Barewords = qw( __FILE__ __LINE__ __PACKAGE__ __DATA__ __END__ CORE EQ GE GT LE LT NE NULL and cmp continue default do else elsif eq err for foreach ge given gt if le lock lt m ne no or package q qq qr qw qx s sub tr unless until when while x xor y ); use vars '@TieIOMethods'; @TieIOMethods = qw( BINMODE CLEAR CLEARERR CLONE CLONE_SKIP CLOSE DELETE EOF ERROR EXISTS EXTEND FDOPEN FETCH FETCHSIZE FILENO FILL FIRSTKEY FLUSH GETC NEXTKEY OPEN POP POPPED PRINT PRINTF PUSH PUSHED READ READLINE SCALAR SEEK SETLINEBUF SHIFT SPLICE STORE STORESIZE SYSOPEN TELL TIEARRAY TIEHANDLE TIEHASH TIESCALAR UNREAD UNSHIFT UNTIE UTF8 WRITE ); use vars '@UNIVERSALMethods'; @UNIVERSALMethods = qw( can isa DOES VERSION ); use vars '@ExporterSymbols'; @ExporterSymbols = qw( @EXPORT @EXPORT_OK @EXPORT_FAIL @EXPORT_TAGS _push_tags _rebuild_cache as_heavy export export_fail export_fail_in export_ok_tags export_tags export_to_level heavy_export heavy_export_ok_tags heavy_export_tags heavy_export_to_level heavy_require_version require_version ); use vars '@Symbols'; @Symbols = ( @Scalars, @Arrays, @Hashes, @Filehandles, @Functions ); # This quote is blatantly copied from ErrantStory.com, Michael Poe's # comic. BEGIN { $^W = 0 } "You know, when you stop and think about it, Cthulhu is a bit a Mary Sue isn't he?" __END__ =encoding UTF-8 =head1 NAME B::Keywords - Lists of reserved barewords and symbol names =head1 SYNOPSIS use B::Keywords qw( @Symbols @Barewords ); print join "\n", @Symbols, @Barewords; =head1 DESCRIPTION C supplies several arrays of exportable keywords: C<@Scalars>, C<@Arrays>, C<@Hashes>, C<@Filehandles>, C<@Symbols>, C<@Functions>, C<@Barewords>, C<@TieIOMethods>, C<@UNIVERSALMethods> and C<@ExporterSymbols>. The C<@Symbols> array includes the contents of each of C<@Scalars>, C<@Arrays>, C<@Hashes>, C<@Functions> and C<@Filehandles>. Similarly, C<@Barewords> adds a few non-function keywords and operators to the C<@Functions> array. All additions and modifications are welcome. The perl parser uses a static list of keywords from F which constitutes the strict list of keywords @Functions and @Barewords, though some @Functions are not functions in the strict sense. Several library functions use more special symbols, handles and methods. =head1 DATA =over =item C<@Scalars> =item C<@Arrays> =item C<@Hashes> =item C<@Filehandles> =item C<@Functions> The above are lists of variables, special file handles, and built in functions. =item C<@Symbols> This is just the combination of all of the above: variables, file handles, and functions. =item C<@Barewords> This is a list of other special keywords in perl including operators and all the control structures. =item C<@TieIOMethods> Those are special tie or PerlIO methods called by the perl core, namely for tieing or PerlIO::via (or both of those) or threads. =item C<@UNIVERSALMethods> Methods defined by the core package UNIVERSAL. =item C<@ExporterSymbols> Variables or functions used by Exporter (some internal), which is almost as good as being keywords, for you mustn't use them for any other purpose in any package that isa Exporter, which is quite common. =back =head1 EXPORT Anything can be exported if you desire. Use the :all tag to get everything. =head1 SEE ALSO F from the perl source, L, L, L. =head1 BUGS Please report any bugs or feature requests to C, or through the web interface at L. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes. =head1 SUPPORT You can find documentation for this module with the perldoc command. perldoc B::Keywords You can also look for information at: =over =item * RT: CPAN's request tracker L =item * AnnoCPAN: Annotated CPAN documentation L =item * CPAN Ratings L =item * Search CPAN L =back =head1 ACKNOWLEDGEMENTS Michael G Schwern, Reini Urban, Florian Ragwitz and Zsbán Ambrus for patches and releases. =head1 COPYRIGHT AND LICENSE Copyright 2009 Joshua ben Jore, All rights reserved. This program is free software; you can redistribute it and/or modify it under the terms of either: a) the GNU General Public License as published by the Free Software Foundation; version 2, or b) the "Artistic License" which comes with Perl. =head1 SOURCE AVAILABILITY This source is in Github: L =head1 AUTHOR Joshua ben Jore =head1 MAINTAINER Reini Urban B-Keywords-1.13/t/000075500000000000000000000000001213261237300136655ustar00rootroot00000000000000B-Keywords-1.13/t/10basic.t000064400000000000000000000011431213261237300152730ustar00rootroot00000000000000# Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl 1.t' ######################### # change 'tests => 1' to 'tests => last_test_to_print'; use Test; BEGIN { plan( tests => 7 ); $^W = 1; } use lib qw( ../lib lib ); use B::Keywords; ######################### ok( scalar @B::Keywords::Scalars ); ok( scalar @B::Keywords::Arrays ); ok( scalar @B::Keywords::Hashes ); ok( scalar @B::Keywords::Filehandles ); ok( scalar @B::Keywords::Symbols ); ok( scalar @B::Keywords::Functions ); ok( scalar @B::Keywords::Barewords ); B-Keywords-1.13/t/11keywords.t000064400000000000000000000022331213261237300160630ustar00rootroot00000000000000#!/usr/bin/perl -w use strict; use Test::More 'no_plan'; use Config; use File::Spec; use lib qw( ../lib lib ); use B::Keywords ':all'; # Translate control characters into ^A format # Leave others alone. my @control_map = (undef, "A".."Z"); sub _map_control_char { my $char = shift; my $ord = ord $char; return "^".$control_map[$ord] if $ord <= 26; return $char; } # Test everything in keywords.h is covered. { my $keywords = File::Spec->catfile( $Config{archlibexp}, 'CORE', 'keywords.h' ); open FH, "< $keywords\0" or die "Can't open $keywords: $!"; local $/; chomp( my @keywords = =~ /^\#define \s+ KEY_(\S+) /xmsg ); close FH; my %covered = map { $_ => 1 } @Symbols, @Barewords; for my $keyword (@keywords) { ok $covered{$keyword}, "keyword: $keyword"; } } # Test all the single character globals in main { my @globals = map { _map_control_char($_) } grep { length $_ == 1 and /\W/ } keys %main::; my %symbols = map { s/^.//; $_ => 1 } (@Scalars, @Arrays, @Hashes); for my $global (@globals) { ok $symbols{$global}, "global: $global"; } } B-Keywords-1.13/t/export.t000064400000000000000000000003511213261237300153720ustar00rootroot00000000000000#!/usr/bin/perl -w use strict; use Test::More tests => 7; use B::Keywords ":all"; for my $name (qw(Scalars Arrays Hashes Filehandles Symbols Functions Barewords)) { no strict 'refs'; ok @{$name}, ":all exports \@$name"; } B-Keywords-1.13/t/z_kwalitee.t000064400000000000000000000011261213261237300162100ustar00rootroot00000000000000# -*- perl -*- use strict; use warnings; use Test::More; use Config; plan skip_all => 'This test is only run for the module author' unless -d '.git' || $ENV{IS_MAINTAINER}; plan skip_all => 'Test::Kwalitee fails with clang -faddress-sanitizer' if $Config{ccflags} =~ /-faddress-sanitizer/; use File::Copy 'cp'; cp('MYMETA.yml','META.yml') if -e 'MYMETA.yml' and !-e 'META.yml'; eval { require Test::Kwalitee; Test::Kwalitee->import( tests => [ qw( -use_strict -has_test_pod -has_test_pod_coverage)]); }; plan skip_all => "Test::Kwalitee needed for testing kwalitee" if $@; B-Keywords-1.13/t/z_meta.t000064400000000000000000000012761213261237300153370ustar00rootroot00000000000000# -*- perl -*- # Test that our META.yml file matches the current specification. use strict; BEGIN { $| = 1; $^W = 1; } my $MODULE = 'Test::CPAN::Meta 0.12'; # Don't run tests for installs use Test::More; use Config; plan skip_all => 'This test is only run for the module author' unless -d '.git' || $ENV{IS_MAINTAINER}; plan skip_all => 'Test::CPAN::Meta fails with clang -faddress-sanitizer' if $Config{ccflags} =~ /-faddress-sanitizer/; # Load the testing module eval "use $MODULE;"; if ( $@ ) { plan( skip_all => "$MODULE not available for testing" ); die "Failed to load required release-testing module $MODULE 0.12" if -d '.git' || $ENV{IS_MAINTAINER}; } meta_yaml_ok(); B-Keywords-1.13/t/z_perl_minimum_version.t000064400000000000000000000012651213261237300206510ustar00rootroot00000000000000# -*- perl -*- # Test that our declared minimum Perl version matches our syntax use strict; BEGIN { $| = 1; $^W = 1; } my @MODULES = ( 'Perl::MinimumVersion 1.20', 'Test::MinimumVersion 0.008', ); # Don't run tests during end-user installs use Test::More; unless (-d '.git' || $ENV{IS_MAINTAINER}) { plan( skip_all => "Author tests not required for installation" ); } # Load the testing modules foreach my $MODULE ( @MODULES ) { eval "use $MODULE"; if ( $@ ) { plan( skip_all => "$MODULE not available for testing" ); die "Failed to load required release-testing module $MODULE" if -d '.git' || $ENV{IS_MAINTAINER}; } } all_minimum_version_ok("5.006"); 1; B-Keywords-1.13/t/z_pod-coverage.t000064400000000000000000000006251213261237300167610ustar00rootroot00000000000000# -*- perl -*- use strict; use warnings; use Test::More; plan skip_all => 'done_testing requires Test::More 0.88' if Test::More->VERSION < 0.88; plan skip_all => 'This test is only run for the module author' unless -d '.git' || $ENV{IS_MAINTAINER}; eval "use Test::Pod::Coverage 1.04"; plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@; all_pod_coverage_ok(); B-Keywords-1.13/t/z_pod.t000064400000000000000000000002201213261237300151570ustar00rootroot00000000000000# -*- perl -*- use Test::More; eval "use Test::Pod 1.00"; plan skip_all => "Test::Pod 1.00 required for testing POD" if $@; all_pod_files_ok();