Result:
found more than 916 distributions - search limited to the first 2001 files matching your query
( run in 0.625 )
Aspect
view release on metacpan or search on metacpan
lib/Aspect.pm view on Meta::CPAN
# Run Advice conditionally based on multiple factors
before {
print "Calling a get method in void context within Tester::run_tests";
} wantvoid
& ( call qr/^Person::get_/ & ! call 'Person::get_not_trapped' )
& cflow 'Tester::run_tests';
# Context-aware runtime hijacking of a method if certain condition is true
around {
if ( $_->self->customer_name eq 'Adam Kennedy' ) {
AsposeSlidesCloud-SlidesApi
view release on metacpan or search on metacpan
lib/AsposeSlidesCloud/Object/FontSubstRule.pm view on Meta::CPAN
base_name => 'TargetFont',
description => 'Substitution font.',
format => '',
read_only => '',
},
'not_found_only' => {
datatype => 'boolean',
base_name => 'NotFoundOnly',
description => 'Substitute when font is not found. Default: true.',
format => '',
read_only => '',
lib/AsposeSlidesCloud/Object/FontSubstRule.pm view on Meta::CPAN
});
__PACKAGE__->swagger_types( {
'source_font' => 'string',
'target_font' => 'string',
'not_found_only' => 'boolean'
} );
__PACKAGE__->attribute_map( {
'source_font' => 'SourceFont',
'target_font' => 'TargetFont',
'not_found_only' => 'NotFoundOnly'
} );
__PACKAGE__->mk_accessors(keys %{__PACKAGE__->attribute_map});
Assert-Conditional
view release on metacpan or search on metacpan
lib/Assert/Conditional.pm view on Meta::CPAN
sub assert_nonpositive ( $ ) ;
sub assert_nonpositive_integer ( $ ) ;
sub assert_nonref ( $ ) ;
sub assert_nonvoid_context ( ) ;
sub assert_nonzero ( $ ) ;
sub assert_not_in_list ( $@ ) ;
sub assert_numeric ( $ ) ;
sub assert_object ( $ ) ;
sub assert_object_ainta ( $@ ) ;
sub assert_object_boolifies ( $ ) ;
sub assert_object_can ( $@ ) ;
lib/Assert/Conditional.pm view on Meta::CPAN
}
$needle = "undef" unless defined $needle;
botch "couldn't find $needle in " . join(", " => map { defined() ? $_ : "undef" } @haystack);
}
sub assert_not_in_list($@)
:Assert( qw[list] )
{
my($needle, @haystack) = @_;
my $found = 0;
for my $straw (@haystack) {
lib/Assert/Conditional.pm view on Meta::CPAN
assert_nonpositive ( $ ) ;
assert_nonpositive_integer ( $ ) ;
assert_nonref ( $ ) ;
assert_nonvoid_context ( ) ;
assert_nonzero ( $ ) ;
assert_not_in_list ( $@ ) ;
assert_numeric ( $ ) ;
assert_object ( $ ) ;
assert_object_ainta ( $@ ) ;
assert_object_boolifies ( $ ) ;
assert_object_can ( $@ ) ;
lib/Assert/Conditional.pm view on Meta::CPAN
L</assert_nonblank>, L</assert_nonbytes>, L</assert_nonempty>,
L</assert_nonlist_context>, L</assert_nonnegative>,
L</assert_nonnegative_integer>, L</assert_nonnumeric>,
L</assert_nonobject>, L</assert_nonpositive>,
L</assert_nonpositive_integer>, L</assert_nonref>,
L</assert_nonvoid_context>, L</assert_nonzero>, L</assert_not_in_list>,
L</assert_numeric>, L</assert_object>, L</assert_object_ainta>,
L</assert_object_boolifies>, L</assert_object_can>, L</assert_object_cant>,
L</assert_object_isa>, L</assert_object_method>,
L</assert_object_nummifies>, L</assert_object_overloads>,
L</assert_object_stringifies>, L</assert_odd_number>,
lib/Assert/Conditional.pm view on Meta::CPAN
L</assert_ioref> and L</assert_open_handle>.
=item C<:list>
L</assert_in_list>, L</assert_list_nonempty>, and L</assert_not_in_list>.
=item C<:number>
L</assert_box_number>, L</assert_digits>, L</assert_even_number>,
L</assert_fractional>, L</assert_hex_number>, L</assert_in_numeric_range>,
lib/Assert/Conditional.pm view on Meta::CPAN
=item assert_in_list(I<STRING>, I<LIST>)
The first argument must occur in the list following it.
=item assert_not_in_list(I<STRING>, I<LIST>)
The first argument must not occur in the list following it.
=item assert_list_nonempty(I<LIST>)
Asterisk-LCR
view release on metacpan or search on metacpan
lib/Asterisk/LCR/Route.pm view on Meta::CPAN
die 'asterisk/lcr/rate/connection_fee/undefined';
return 0;
};
is_number ($val) or do {
die "asterisk/lcr/rate/connection_fee/not_a_number : $val";
return 0;
};
return 1;
}
lib/Asterisk/LCR/Route.pm view on Meta::CPAN
die 'asterisk/lcr/rate/first_increment/undefined';
return 0;
};
is_number ($val) or do {
die 'asterisk/lcr/rate/first_increment/not_a_number';
return 0;
};
return 1;
}
lib/Asterisk/LCR/Route.pm view on Meta::CPAN
die 'asterisk/lcr/rate/increment/undefined';
return 0;
};
is_number ($val) or do {
die 'asterisk/lcr/rate/increment/not_a_number';
return 0;
};
return 1;
}
lib/Asterisk/LCR/Route.pm view on Meta::CPAN
die 'asterisk/lcr/rate/rate/undefined';
return 0;
};
is_number ($val) or do {
die 'asterisk/lcr/rate/rate/not_a_number';
return 0;
};
return 1;
}
Astro-App-Satpass2
view release on metacpan or search on metacpan
inc/My/Module/Recommend.pm view on Meta::CPAN
EOD
( $is_5_010 ? '' : <<'EOD' ) ),
Unfortunately, the current Date::Manip requires Perl 5.10. Since
you are running an earlier Perl, you can try installing Date-Manip
5.54, which is the most recent version that does _not_ require
Perl 5.10. This version of Date::Manip does not understand summer
time (a.k.a. daylight saving time).
EOD
__all( qw{ DateTime DateTime::TimeZone } => <<'EOD' ),
These modules are used to format times, and provide full time zone
Astro-Constants
view release on metacpan or search on metacpan
script/add_constant.pl view on Meta::CPAN
exit;
sub populate_fields {
get_name();
check_not_a_duplicate() or return;
get_description();
get_value();
get_precision();
get_dimensions();
get_source();
script/add_constant.pl view on Meta::CPAN
# a default
@categories = qw/unclassified/ unless scalar @categories;
}
sub check_not_a_duplicate {
my @constants = $xml->getElementsByTagName('PhysicalConstant');
for my $node (@constants) {
if ($node->getChildrenByTagName('name') eq $name) {
warn "$name already exists. Skipping\n";
return;
Astro-Cosmology
view release on metacpan or search on metacpan
t/cosmology2.t view on Meta::CPAN
# this routine determines whether or not you have flat universe or
# if you have to use the correction when going between the comoving
# distance and the interesting distances (lum, ang, etc.)
sub _not_flat {
my $matter = shift;
my $lambda = shift;
my $tot = $matter+$lambda;
t/cosmology2.t view on Meta::CPAN
# the curvature of the universe. So, I calculate the curvature,
# calculate the comoving distance along the line of sight and
# only then do compute whether the curvature is positive, negatuve
# or "zero", which means less than the tolerance variable $_tol
#
# _not_flat is the routine that checks the curvature, is uses the
# input lambda and matter, not the computed curvature
my $curve = 1.0- ($lambda+$matter);
my $dc = d_c($z,$matter,$lambda,$nsteps);
if (!_not_flat($matter,$lambda)) {
return($dc);
} elsif (_not_flat($matter,$lambda) < 0) {
# negative curvature
$curve = abs($curve);
return(sin($dc*sqrt($curve))/sqrt($curve));
} else {
return(sinh($dc*sqrt($curve))/sqrt($curve));
t/cosmology2.t view on Meta::CPAN
# this formula is from Carrol, Press and Turner, ARA&Ap, 1992, 30, 499
# however, it seems odd, as the volume will be negative for negative
# curvature.
if (!_not_flat($matter,$lambda)) {
$vc = $dm**3;
$vc /= 3.0;
} elsif (_not_flat($matter,$lambda) < 0) {
# negative curvature
$vc = $dm*sqrt(1+$curve*$dm**2) - asin($dm*$sacurve)/$sacurve;
$vc /= 2*$curve;
Astro-FITS-CFITSIO-CheckStatus
view release on metacpan or search on metacpan
CheckStatus.pm view on Meta::CPAN
tied variable is set equal to a string (which should not pass the
B<Scalar::Util::look_like_number()> test) or a subroutine, the string
or return value from the subroutine is prepended to the B<CFITSIO>
error message. For example
Astro::FITS::CFITSIO::open_file( 'file_does_not_exist.fits',
Astro::FITS::CFITSIO::READONLY(), $status = "Bad Open:" );
will result in:
Bad Open: CFITSIO error: could not open the named file
Astro-FITS-CFITSIO
view release on metacpan or search on metacpan
#ifdef free
#undef free
#endif
static int
not_here(s)
char *s;
{
croak("%s not implemented on this architecture", s);
return -1;
}
case 'A':
if (strEQ(name, "ANGLE_TOO_BIG"))
#ifdef ANGLE_TOO_BIG
return ANGLE_TOO_BIG;
#else
goto not_there;
#endif
if (strEQ(name, "ANY_HDU"))
#ifdef ANY_HDU
return ANY_HDU;
#else
goto not_there;
#endif
if (strEQ(name, "ARRAY_TOO_BIG"))
#ifdef ARRAY_TOO_BIG
return ARRAY_TOO_BIG;
#else
goto not_there;
#endif
if (strEQ(name, "ASCII_TBL"))
#ifdef ASCII_TBL
return ASCII_TBL;
#else
goto not_there;
#endif
break;
case 'B':
if (strEQ(name, "BAD_ATABLE_FORMAT"))
#ifdef BAD_ATABLE_FORMAT
return BAD_ATABLE_FORMAT;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_BITPIX"))
#ifdef BAD_BITPIX
return BAD_BITPIX;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_BTABLE_FORMAT"))
#ifdef BAD_BTABLE_FORMAT
return BAD_BTABLE_FORMAT;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_C2D"))
#ifdef BAD_C2D
return BAD_C2D;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_C2F"))
#ifdef BAD_C2F
return BAD_C2F;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_C2I"))
#ifdef BAD_C2I
return BAD_C2I;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_COL_NUM"))
#ifdef BAD_COL_NUM
return BAD_COL_NUM;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_DATATYPE"))
#ifdef BAD_DATATYPE
return BAD_DATATYPE;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_DATA_FILL"))
#ifdef BAD_DATA_FILL
return BAD_DATA_FILL;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_DATE"))
#ifdef BAD_DATE
return BAD_DATE;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_DECIM"))
#ifdef BAD_DECIM
return BAD_DECIM;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_DIMEN"))
#ifdef BAD_DIMEN
return BAD_DIMEN;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_DOUBLEKEY"))
#ifdef BAD_DOUBLEKEY
return BAD_DOUBLEKEY;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_ELEM_NUM"))
#ifdef BAD_ELEM_NUM
return BAD_ELEM_NUM;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_F2C"))
#ifdef BAD_F2C
return BAD_F2C;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_FILEPTR"))
#ifdef BAD_FILEPTR
return BAD_FILEPTR;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_FLOATKEY"))
#ifdef BAD_FLOATKEY
return BAD_FLOATKEY;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_GCOUNT"))
#ifdef BAD_GCOUNT
return BAD_GCOUNT;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_GROUP_ID"))
#ifdef BAD_GROUP_ID
return BAD_GROUP_ID;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_HDU_NUM"))
#ifdef BAD_HDU_NUM
return BAD_HDU_NUM;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_HEADER_FILL"))
#ifdef BAD_HEADER_FILL
return BAD_HEADER_FILL;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_I2C"))
#ifdef BAD_I2C
return BAD_I2C;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_INTKEY"))
#ifdef BAD_INTKEY
return BAD_INTKEY;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_KEYCHAR"))
#ifdef BAD_KEYCHAR
return BAD_KEYCHAR;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_LOGICALKEY"))
#ifdef BAD_LOGICALKEY
return BAD_LOGICALKEY;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_NAXES"))
#ifdef BAD_NAXES
return BAD_NAXES;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_NAXIS"))
#ifdef BAD_NAXIS
return BAD_NAXIS;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_OPTION"))
#ifdef BAD_OPTION
return BAD_OPTION;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_ORDER"))
#ifdef BAD_ORDER
return BAD_ORDER;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_PCOUNT"))
#ifdef BAD_PCOUNT
return BAD_PCOUNT;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_PIX_NUM"))
#ifdef BAD_PIX_NUM
return BAD_PIX_NUM;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_ROW_NUM"))
#ifdef BAD_ROW_NUM
return BAD_ROW_NUM;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_ROW_WIDTH"))
#ifdef BAD_ROW_WIDTH
return BAD_ROW_WIDTH;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_SIMPLE"))
#ifdef BAD_SIMPLE
return BAD_SIMPLE;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_TBCOL"))
#ifdef BAD_TBCOL
return BAD_TBCOL;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_TDIM"))
#ifdef BAD_TDIM
return BAD_TDIM;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_TFIELDS"))
#ifdef BAD_TFIELDS
return BAD_TFIELDS;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_TFORM"))
#ifdef BAD_TFORM
return BAD_TFORM;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_TFORM_DTYPE"))
#ifdef BAD_TFORM_DTYPE
return BAD_TFORM_DTYPE;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_URL_PREFIX"))
#ifdef BAD_URL_PREFIX
return BAD_URL_PREFIX;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_WCS_PROJ"))
#ifdef BAD_WCS_PROJ
return BAD_WCS_PROJ;
#else
goto not_there;
#endif
if (strEQ(name, "BAD_WCS_VAL"))
#ifdef BAD_WCS_VAL
return BAD_WCS_VAL;
#else
goto not_there;
#endif
if (strEQ(name, "BINARY_TBL"))
#ifdef BINARY_TBL
return BINARY_TBL;
#else
goto not_there;
#endif
if (strEQ(name, "BYTE_IMG"))
#ifdef BYTE_IMG
return BYTE_IMG;
#else
goto not_there;
#endif
break;
case 'C':
if (strEQ(name, "CASEINSEN"))
#ifdef CASEINSEN
return CASEINSEN;
#else
goto not_there;
#endif
if (strEQ(name, "CASESEN"))
#ifdef CASESEN
return CASESEN;
#else
goto not_there;
#endif
if (strEQ(name, "CFITSIO_MAJOR"))
#ifdef CFITSIO_MAJOR
return CFITSIO_MAJOR;
#else
goto not_there;
#endif
if (strEQ(name, "CFITSIO_MINOR"))
#ifdef CFITSIO_MINOR
return CFITSIO_MINOR;
#else
goto not_there;
#endif
if (strEQ(name, "COL_NOT_FOUND"))
#ifdef COL_NOT_FOUND
return COL_NOT_FOUND;
#else
goto not_there;
#endif
if (strEQ(name, "COL_NOT_UNIQUE"))
#ifdef COL_NOT_UNIQUE
return COL_NOT_UNIQUE;
#else
goto not_there;
#endif
if (strEQ(name, "COL_TOO_WIDE"))
#ifdef COL_TOO_WIDE
return COL_TOO_WIDE;
#else
goto not_there;
#endif
break;
case 'D':
if (strEQ(name, "DOUBLENULLVALUE"))
#ifdef DOUBLENULLVALUE
return DOUBLENULLVALUE;
#else
goto not_there;
#endif
if (strEQ(name, "DOUBLE_IMG"))
#ifdef DOUBLE_IMG
return DOUBLE_IMG;
#else
goto not_there;
#endif
if (strEQ(name, "DRIVER_INIT_FAILED"))
#ifdef DRIVER_INIT_FAILED
return DRIVER_INIT_FAILED;
#else
goto not_there;
#endif
break;
case 'E':
if (strEQ(name, "END_JUNK"))
#ifdef END_JUNK
return END_JUNK;
#else
goto not_there;
#endif
if (strEQ(name, "END_OF_FILE"))
#ifdef END_OF_FILE
return END_OF_FILE;
#else
goto not_there;
#endif
break;
case 'F':
if (strEQ(name, "FALSE"))
#ifdef FALSE
return FALSE;
#else
goto not_there;
#endif
if (strEQ(name, "FILE_NOT_CLOSED"))
#ifdef FILE_NOT_CLOSED
return FILE_NOT_CLOSED;
#else
goto not_there;
#endif
if (strEQ(name, "FILE_NOT_CREATED"))
#ifdef FILE_NOT_CREATED
return FILE_NOT_CREATED;
#else
goto not_there;
#endif
if (strEQ(name, "FILE_NOT_OPENED"))
#ifdef FILE_NOT_OPENED
return FILE_NOT_OPENED;
#else
goto not_there;
#endif
if (strEQ(name, "FLEN_CARD"))
#ifdef FLEN_CARD
return FLEN_CARD;
#else
goto not_there;
#endif
if (strEQ(name, "FLEN_COMMENT"))
#ifdef FLEN_COMMENT
return FLEN_COMMENT;
#else
goto not_there;
#endif
if (strEQ(name, "FLEN_ERRMSG"))
#ifdef FLEN_ERRMSG
return FLEN_ERRMSG;
#else
goto not_there;
#endif
if (strEQ(name, "FLEN_FILENAME"))
#ifdef FLEN_FILENAME
return FLEN_FILENAME;
#else
goto not_there;
#endif
if (strEQ(name, "FLEN_KEYWORD"))
#ifdef FLEN_KEYWORD
return FLEN_KEYWORD;
#else
goto not_there;
#endif
if (strEQ(name, "FLEN_STATUS"))
#ifdef FLEN_STATUS
return FLEN_STATUS;
#else
goto not_there;
#endif
if (strEQ(name, "FLEN_VALUE"))
#ifdef FLEN_VALUE
return FLEN_VALUE;
#else
goto not_there;
#endif
if (strEQ(name, "FLOATNULLVALUE"))
#ifdef FLOATNULLVALUE
return FLOATNULLVALUE;
#else
goto not_there;
#endif
if (strEQ(name, "FLOAT_IMG"))
#ifdef FLOAT_IMG
return FLOAT_IMG;
#else
goto not_there;
#endif
break;
case 'G':
if (strEQ(name, "GROUP_NOT_FOUND"))
#ifdef GROUP_NOT_FOUND
return GROUP_NOT_FOUND;
#else
goto not_there;
#endif
if (strEQ(name, "GT_ID_ALL"))
#ifdef GT_ID_ALL
return GT_ID_ALL;
#else
goto not_there;
#endif
if (strEQ(name, "GT_ID_ALL_URI"))
#ifdef GT_ID_ALL_URI
return GT_ID_ALL_URI;
#else
goto not_there;
#endif
if (strEQ(name, "GT_ID_POS"))
#ifdef GT_ID_POS
return GT_ID_POS;
#else
goto not_there;
#endif
if (strEQ(name, "GT_ID_POS_URI"))
#ifdef GT_ID_POS_URI
return GT_ID_POS_URI;
#else
goto not_there;
#endif
if (strEQ(name, "GT_ID_REF"))
#ifdef GT_ID_REF
return GT_ID_REF;
#else
goto not_there;
#endif
if (strEQ(name, "GT_ID_REF_URI"))
#ifdef GT_ID_REF_URI
return GT_ID_REF_URI;
#else
goto not_there;
#endif
if (strEQ(name, "GZIP_1"))
#ifdef GZIP_1
return GZIP_1;
#else
goto not_there;
#endif
break;
case 'H':
if (strEQ(name, "HDU_ALREADY_MEMBER"))
#ifdef HDU_ALREADY_MEMBER
return HDU_ALREADY_MEMBER;
#else
goto not_there;
#endif
if (strEQ(name, "HDU_ALREADY_TRACKED"))
#ifdef HDU_ALREADY_TRACKED
return HDU_ALREADY_TRACKED;
#else
goto not_there;
#endif
if (strEQ(name, "HEADER_NOT_EMPTY"))
#ifdef HEADER_NOT_EMPTY
return HEADER_NOT_EMPTY;
#else
goto not_there;
#endif
break;
case 'I':
if (strEQ(name, "IDENTICAL_POINTERS"))
#ifdef IDENTICAL_POINTERS
return IDENTICAL_POINTERS;
#else
goto not_there;
#endif
if (strEQ(name, "IMAGE_HDU"))
#ifdef IMAGE_HDU
return IMAGE_HDU;
#else
goto not_there;
#endif
if (strEQ(name, "InputCol"))
#ifdef InputCol
return InputCol;
#else
goto not_there;
#endif
if (strEQ(name, "InputOutputCol"))
#ifdef InputOutputCol
return InputOutputCol;
#else
goto not_there;
#endif
break;
case 'J':
break;
case 'K':
if (strEQ(name, "KEY_NO_EXIST"))
#ifdef KEY_NO_EXIST
return KEY_NO_EXIST;
#else
goto not_there;
#endif
if (strEQ(name, "KEY_OUT_BOUNDS"))
#ifdef KEY_OUT_BOUNDS
return KEY_OUT_BOUNDS;
#else
goto not_there;
#endif
break;
case 'L':
if (strEQ(name, "LONG_IMG"))
#ifdef LONG_IMG
return LONG_IMG;
#else
goto not_there;
#endif
if (strEQ(name, "LONGLONG_IMG"))
#ifdef LONGLONG_IMG
return LONGLONG_IMG;
#else
goto not_there;
#endif
break;
case 'M':
if (strEQ(name, "MAXHDU"))
#ifdef MAXHDU
return MAXHDU;
#else
goto not_there;
#endif
if (strEQ(name, "MEMBER_NOT_FOUND"))
#ifdef MEMBER_NOT_FOUND
return MEMBER_NOT_FOUND;
#else
goto not_there;
#endif
if (strEQ(name, "MEMORY_ALLOCATION"))
#ifdef MEMORY_ALLOCATION
return MEMORY_ALLOCATION;
#else
goto not_there;
#endif
break;
case 'N':
if (strEQ(name, "NEG_AXIS"))
#ifdef NEG_AXIS
return NEG_AXIS;
#else
goto not_there;
#endif
if (strEQ(name, "NEG_BYTES"))
#ifdef NEG_BYTES
return NEG_BYTES;
#else
goto not_there;
#endif
if (strEQ(name, "NEG_FILE_POS"))
#ifdef NEG_FILE_POS
return NEG_FILE_POS;
#else
goto not_there;
#endif
if (strEQ(name, "NEG_ROWS"))
#ifdef NEG_ROWS
return NEG_ROWS;
#else
goto not_there;
#endif
if (strEQ(name, "NEG_WIDTH"))
#ifdef NEG_WIDTH
return NEG_WIDTH;
#else
goto not_there;
#endif
if (strEQ(name, "NOT_ASCII_COL"))
#ifdef NOT_ASCII_COL
return NOT_ASCII_COL;
#else
goto not_there;
#endif
if (strEQ(name, "NOT_ATABLE"))
#ifdef NOT_ATABLE
return NOT_ATABLE;
#else
goto not_there;
#endif
if (strEQ(name, "NOT_BTABLE"))
#ifdef NOT_BTABLE
return NOT_BTABLE;
#else
goto not_there;
#endif
if (strEQ(name, "NOT_GROUP_TABLE"))
#ifdef NOT_GROUP_TABLE
return NOT_GROUP_TABLE;
#else
goto not_there;
#endif
if (strEQ(name, "NOT_IMAGE"))
#ifdef NOT_IMAGE
return NOT_IMAGE;
#else
goto not_there;
#endif
if (strEQ(name, "NOT_LOGICAL_COL"))
#ifdef NOT_LOGICAL_COL
return NOT_LOGICAL_COL;
#else
goto not_there;
#endif
if (strEQ(name, "NOT_POS_INT"))
#ifdef NOT_POS_INT
return NOT_POS_INT;
#else
goto not_there;
#endif
if (strEQ(name, "NOT_TABLE"))
#ifdef NOT_TABLE
return NOT_TABLE;
#else
goto not_there;
#endif
if (strEQ(name, "NOT_VARI_LEN"))
#ifdef NOT_VARI_LEN
return NOT_VARI_LEN;
#else
goto not_there;
#endif
if (strEQ(name, "NO_BITPIX"))
#ifdef NO_BITPIX
return NO_BITPIX;
#else
goto not_there;
#endif
if (strEQ(name, "NO_END"))
#ifdef NO_END
return NO_END;
#else
goto not_there;
#endif
if (strEQ(name, "NO_GCOUNT"))
#ifdef NO_GCOUNT
return NO_GCOUNT;
#else
goto not_there;
#endif
if (strEQ(name, "NO_MATCHING_DRIVER"))
#ifdef NO_MATCHING_DRIVER
return NO_MATCHING_DRIVER;
#else
goto not_there;
#endif
if (strEQ(name, "NO_NAXES"))
#ifdef NO_NAXES
return NO_NAXES;
#else
goto not_there;
#endif
if (strEQ(name, "NO_NAXIS"))
#ifdef NO_NAXIS
return NO_NAXIS;
#else
goto not_there;
#endif
if (strEQ(name, "NO_NULL"))
#ifdef NO_NULL
return NO_NULL;
#else
goto not_there;
#endif
if (strEQ(name, "NO_PCOUNT"))
#ifdef NO_PCOUNT
return NO_PCOUNT;
#else
goto not_there;
#endif
if (strEQ(name, "NO_QUOTE"))
#ifdef NO_QUOTE
return NO_QUOTE;
#else
goto not_there;
#endif
if (strEQ(name, "NO_SIMPLE"))
#ifdef NO_SIMPLE
return NO_SIMPLE;
#else
goto not_there;
#endif
if (strEQ(name, "NO_TBCOL"))
#ifdef NO_TBCOL
return NO_TBCOL;
#else
goto not_there;
#endif
if (strEQ(name, "NO_TFIELDS"))
#ifdef NO_TFIELDS
return NO_TFIELDS;
#else
goto not_there;
#endif
if (strEQ(name, "NO_TFORM"))
#ifdef NO_TFORM
return NO_TFORM;
#else
goto not_there;
#endif
if (strEQ(name, "NO_WCS_KEY"))
#ifdef NO_WCS_KEY
return NO_WCS_KEY;
#else
goto not_there;
#endif
if (strEQ(name, "NO_XTENSION"))
#ifdef NO_XTENSION
return NO_XTENSION;
#else
goto not_there;
#endif
if (strEQ(name, "NULL_INPUT_PTR"))
#ifdef NULL_INPUT_PTR
return NULL_INPUT_PTR;
#else
goto not_there;
#endif
if (strEQ(name, "NUM_OVERFLOW"))
#ifdef NUM_OVERFLOW
return NUM_OVERFLOW;
#else
goto not_there;
#endif
break;
case 'O':
if (strEQ(name, "OPT_CMT_MBR"))
#ifdef OPT_CMT_MBR
return OPT_CMT_MBR;
#else
goto not_there;
#endif
if (strEQ(name, "OPT_CMT_MBR_DEL"))
#ifdef OPT_CMT_MBR_DEL
return OPT_CMT_MBR_DEL;
#else
goto not_there;
#endif
if (strEQ(name, "OPT_GCP_ALL"))
#ifdef OPT_GCP_ALL
return OPT_GCP_ALL;
#else
goto not_there;
#endif
if (strEQ(name, "OPT_GCP_GPT"))
#ifdef OPT_GCP_GPT
return OPT_GCP_GPT;
#else
goto not_there;
#endif
if (strEQ(name, "OPT_GCP_MBR"))
#ifdef OPT_GCP_MBR
return OPT_GCP_MBR;
#else
goto not_there;
#endif
if (strEQ(name, "OPT_MCP_ADD"))
#ifdef OPT_MCP_ADD
return OPT_MCP_ADD;
#else
goto not_there;
#endif
if (strEQ(name, "OPT_MCP_MOV"))
#ifdef OPT_MCP_MOV
return OPT_MCP_MOV;
#else
goto not_there;
#endif
if (strEQ(name, "OPT_MCP_NADD"))
#ifdef OPT_MCP_NADD
return OPT_MCP_NADD;
#else
goto not_there;
#endif
if (strEQ(name, "OPT_MCP_REPL"))
#ifdef OPT_MCP_REPL
return OPT_MCP_REPL;
#else
goto not_there;
#endif
if (strEQ(name, "OPT_MRG_COPY"))
#ifdef OPT_MRG_COPY
return OPT_MRG_COPY;
#else
goto not_there;
#endif
if (strEQ(name, "OPT_MRG_MOV"))
#ifdef OPT_MRG_MOV
return OPT_MRG_MOV;
#else
goto not_there;
#endif
if (strEQ(name, "OPT_RM_ALL"))
#ifdef OPT_RM_ALL
return OPT_RM_ALL;
#else
goto not_there;
#endif
if (strEQ(name, "OPT_RM_ENTRY"))
#ifdef OPT_RM_ENTRY
return OPT_RM_ENTRY;
#else
goto not_there;
#endif
if (strEQ(name, "OPT_RM_GPT"))
#ifdef OPT_RM_GPT
return OPT_RM_GPT;
#else
goto not_there;
#endif
if (strEQ(name, "OPT_RM_MBR"))
#ifdef OPT_RM_MBR
return OPT_RM_MBR;
#else
goto not_there;
#endif
if (strEQ(name, "OVERFLOW_ERR"))
#ifdef OVERFLOW_ERR
return OVERFLOW_ERR;
#else
goto not_there;
#endif
if (strEQ(name, "OutputCol"))
#ifdef OutputCol
return OutputCol;
#else
goto not_there;
#endif
break;
case 'P':
if (strEQ(name, "PARSE_BAD_COL"))
#ifdef PARSE_BAD_COL
return PARSE_BAD_COL;
#else
goto not_there;
#endif
if (strEQ(name, "PARSE_BAD_OUTPUT"))
#ifdef PARSE_BAD_OUTPUT
return PARSE_BAD_OUTPUT;
#else
goto not_there;
#endif
if (strEQ(name, "PARSE_BAD_TYPE"))
#ifdef PARSE_BAD_TYPE
return PARSE_BAD_TYPE;
#else
goto not_there;
#endif
if (strEQ(name, "PARSE_LRG_VECTOR"))
#ifdef PARSE_LRG_VECTOR
return PARSE_LRG_VECTOR;
#else
goto not_there;
#endif
if (strEQ(name, "PARSE_NO_OUTPUT"))
#ifdef PARSE_NO_OUTPUT
return PARSE_NO_OUTPUT;
#else
goto not_there;
#endif
if (strEQ(name, "PARSE_SYNTAX_ERR"))
#ifdef PARSE_SYNTAX_ERR
return PARSE_SYNTAX_ERR;
#else
goto not_there;
#endif
if (strEQ(name, "PLIO_1"))
#ifdef PLIO_1
return PLIO_1;
#else
goto not_there;
#endif
break;
case 'Q':
break;
case 'R':
if (strEQ(name, "READONLY"))
#ifdef READONLY
return READONLY;
#else
goto not_there;
#endif
if (strEQ(name, "READONLY_FILE"))
#ifdef READONLY_FILE
return READONLY_FILE;
#else
goto not_there;
#endif
if (strEQ(name, "READWRITE"))
#ifdef READWRITE
return READWRITE;
#else
goto not_there;
#endif
if (strEQ(name, "READ_ERROR"))
#ifdef READ_ERROR
return READ_ERROR;
#else
goto not_there;
#endif
if (strEQ(name, "RICE_1"))
#ifdef RICE_1
return RICE_1;
#else
goto not_there;
#endif
break;
case 'S':
if (strEQ(name, "SAME_FILE"))
#ifdef SAME_FILE
return SAME_FILE;
#else
goto not_there;
#endif
if (strEQ(name, "SEEK_ERROR"))
#ifdef SEEK_ERROR
return SEEK_ERROR;
#else
goto not_there;
#endif
if (strEQ(name, "SHORT_IMG"))
#ifdef SHORT_IMG
return SHORT_IMG;
#else
goto not_there;
#endif
break;
case 'T':
if (strEQ(name, "TBIT"))
#ifdef TBIT
return TBIT;
#else
goto not_there;
#endif
if (strEQ(name, "TBYTE"))
#ifdef TBYTE
return TBYTE;
#else
goto not_there;
#endif
if (strEQ(name, "TSBYTE"))
#ifdef TSBYTE
return TSBYTE;
#else
goto not_there;
#endif
if (strEQ(name, "TCOMPLEX"))
#ifdef TCOMPLEX
return TCOMPLEX;
#else
goto not_there;
#endif
if (strEQ(name, "TDBLCOMPLEX"))
#ifdef TDBLCOMPLEX
return TDBLCOMPLEX;
#else
goto not_there;
#endif
if (strEQ(name, "TDOUBLE"))
#ifdef TDOUBLE
return TDOUBLE;
#else
goto not_there;
#endif
if (strEQ(name, "TFLOAT"))
#ifdef TFLOAT
return TFLOAT;
#else
goto not_there;
#endif
if (strEQ(name, "TINT"))
#ifdef TINT
return TINT;
#else
goto not_there;
#endif
if (strEQ(name, "TLOGICAL"))
#ifdef TLOGICAL
return TLOGICAL;
#else
goto not_there;
#endif
if (strEQ(name, "TLONG"))
#ifdef TLONG
return TLONG;
#else
goto not_there;
#endif
if (strEQ(name, "TLONGLONG"))
#ifdef TLONGLONG
return TLONGLONG;
#else
goto not_there;
#endif
if (strEQ(name, "TOO_MANY_DRIVERS"))
#ifdef TOO_MANY_DRIVERS
return TOO_MANY_DRIVERS;
#else
goto not_there;
#endif
if (strEQ(name, "TOO_MANY_FILES"))
#ifdef TOO_MANY_FILES
return TOO_MANY_FILES;
#else
goto not_there;
#endif
if (strEQ(name, "TOO_MANY_HDUS_TRACKED"))
#ifdef TOO_MANY_HDUS_TRACKED
return TOO_MANY_HDUS_TRACKED;
#else
goto not_there;
#endif
if (strEQ(name, "TRUE"))
#ifdef TRUE
return TRUE;
#else
goto not_there;
#endif
if (strEQ(name, "TSHORT"))
#ifdef TSHORT
return TSHORT;
#else
goto not_there;
#endif
if (strEQ(name, "TSTRING"))
#ifdef TSTRING
return TSTRING;
#else
goto not_there;
#endif
if (strEQ(name, "TUINT"))
#ifdef TUINT
return TUINT;
#else
goto not_there;
#endif
if (strEQ(name, "TULONG"))
#ifdef TULONG
return TULONG;
#else
goto not_there;
#endif
if (strEQ(name, "TUSHORT"))
#ifdef TUSHORT
return TUSHORT;
#else
goto not_there;
#endif
if (strEQ(name, "TYP_STRUC_KEY"))
#ifdef TYP_STRUC_KEY
return TYP_STRUC_KEY;
#else
goto not_there;
#endif
if (strEQ(name, "TYP_CMPRS_KEY"))
#ifdef TYP_CMPRS_KEY
return TYP_CMPRS_KEY;
#else
goto not_there;
#endif
if (strEQ(name, "TYP_SCAL_KEY"))
#ifdef TYP_SCAL_KEY
return TYP_SCAL_KEY;
#else
goto not_there;
#endif
if (strEQ(name, "TYP_NULL_KEY"))
#ifdef TYP_NULL_KEY
return TYP_NULL_KEY;
#else
goto not_there;
#endif
if (strEQ(name, "TYP_DIM_KEY"))
#ifdef TYP_DIM_KEY
return TYP_DIM_KEY;
#else
goto not_there;
#endif
if (strEQ(name, "TYP_RANG_KEY"))
#ifdef TYP_RANG_KEY
return TYP_RANG_KEY;
#else
goto not_there;
#endif
if (strEQ(name, "TYP_UNIT_KEY"))
#ifdef TYP_UNIT_KEY
return TYP_UNIT_KEY;
#else
goto not_there;
#endif
if (strEQ(name, "TYP_DISP_KEY"))
#ifdef TYP_DISP_KEY
return TYP_DISP_KEY;
#else
goto not_there;
#endif
if (strEQ(name, "TYP_HDUID_KEY"))
#ifdef TYP_HDUID_KEY
return TYP_HDUID_KEY;
#else
goto not_there;
#endif
if (strEQ(name, "TYP_CKSUM_KEY"))
#ifdef TYP_CKSUM_KEY
return TYP_CKSUM_KEY;
#else
goto not_there;
#endif
if (strEQ(name, "TYP_WCS_KEY"))
#ifdef TYP_WCS_KEY
return TYP_WCS_KEY;
#else
goto not_there;
#endif
if (strEQ(name, "TYP_REFSYS_KEY"))
#ifdef TYP_REFSYS_KEY
return TYP_REFSYS_KEY;
#else
goto not_there;
#endif
if (strEQ(name, "TYP_COMM_KEY"))
#ifdef TYP_COMM_KEY
return TYP_COMM_KEY;
#else
goto not_there;
#endif
if (strEQ(name, "TYP_CONT_KEY"))
#ifdef TYP_CONT_KEY
return TYP_CONT_KEY;
#else
goto not_there;
#endif
if (strEQ(name, "TYP_USER_KEY"))
#ifdef TYP_USER_KEY
return TYP_USER_KEY;
#else
goto not_there;
#endif
break;
case 'U':
if (strEQ(name, "ULONG_IMG"))
#ifdef ULONG_IMG
return ULONG_IMG;
#else
goto not_there;
#endif
if (strEQ(name, "UNKNOWN_EXT"))
#ifdef UNKNOWN_EXT
return UNKNOWN_EXT;
#else
goto not_there;
#endif
if (strEQ(name, "UNKNOWN_REC"))
#ifdef UNKNOWN_REC
return UNKNOWN_REC;
#else
goto not_there;
#endif
if (strEQ(name, "URL_PARSE_ERROR"))
#ifdef URL_PARSE_ERROR
return URL_PARSE_ERROR;
#else
goto not_there;
#endif
if (strEQ(name, "USE_MEM_BUFF"))
#ifdef USE_MEM_BUFF
return USE_MEM_BUFF;
#else
goto not_there;
#endif
if (strEQ(name, "USHORT_IMG"))
#ifdef USHORT_IMG
return USHORT_IMG;
#else
goto not_there;
#endif
break;
case 'V':
if (strEQ(name, "VALIDSTRUC"))
#ifdef VALIDSTRUC
return VALIDSTRUC;
#else
goto not_there;
#endif
if (strEQ(name, "VALUE_UNDEFINED"))
#ifdef VALUE_UNDEFINED
return VALUE_UNDEFINED;
#else
goto not_there;
#endif
break;
case 'W':
if (strEQ(name, "WCS_ERROR"))
#ifdef WCS_ERROR
return WCS_ERROR;
#else
goto not_there;
#endif
if (strEQ(name, "WRITE_ERROR"))
#ifdef WRITE_ERROR
return WRITE_ERROR;
#else
goto not_there;
#endif
break;
case 'X':
break;
case 'Y':
case 'Z':
if (strEQ(name, "ZERO_SCALE"))
#ifdef ZERO_SCALE
return ZERO_SCALE;
#else
goto not_there;
#endif
break;
}
errno = EINVAL;
return 0;
not_there:
errno = ENOENT;
return 0;
}
#define NewFitsFile(fptr) \
Astro-FITS-HdrTrans
view release on metacpan or search on metacpan
t/data/scuba.hdr view on Meta::CPAN
L_GD_BOL= 'H7 ' / Bol. to whose value LW guard ring is set
L_GUARD = F / Long wave guard ring on or off
MEAS_BOL= 'not used' / Bolometers actually measured in observation
N_BOLS = 1 / Number of bolometers selected
N_SUBS = 1 / Number of sub-instruments used
PHOT_BBF= 'not_used
POL_CONN= F / Polarimeter connect / disconnect status
PRE_DSCD= 0 / No. of samples discarded before chop movement
PST_DSCD= 0 / No. samples discarded after chop movement
REBIN = 'LINEAR ' / Rebinning method used by SCUIP
REF_ADC = -1 / A/D card of FLATFIELD reference bolometer
Astro-FITS-Header
view release on metacpan or search on metacpan
ETATEL_2= -1 / Transmission of telescope
ETATEL_3= -1 / Transmission of telescope
ETATEL_4= -1 / Transmission of telescope
ETATEL_5= -1 / Transmission of telescope
FILT_1 = '850 ' / Filter name
FILT_2 = 'not_used' / Filter name
FILT_3 = 'not_used' / Filter name
FILT_4 = 'not_used' / Filter name
FILT_5 = 'not_used' / Filter name
FLAT = 'jcmtdata_dir:lwswphot.dat' / Name of flat-field file
JIG_DSCD= -1 / No. samples discarded after jiggle movement
L_GD_BOL= 'H7 ' / Bol. to whose value LW guard ring is set
L_GUARD = F / Long wave guard ring on or off
MEAS_BOL= 'LONG ' / Bolometers actually measured in observation
N_BOLS = 37 / Number of bolometers selected
N_SUBS = 1 / Number of sub-instruments used
PHOT_BBF= 'not_used LL,C14,NULL' / The bolometers on the source
PRE_DSCD= 0 / No. of samples discarded before chop movement
PST_DSCD= 0 / No. samples discarded after chop movement
REBIN = 'LINEAR ' / Rebinning method used by SCUIP
REF_ADC = -1 / A/D card of FLATFIELD reference bolometer
REF_CHAN= -1 / Channel of FLATFIELD reference bolometer
Astro-Flux
view release on metacpan or search on metacpan
=item B<allfluxes>
Returns an array of all the C<Astro::Flux> objects contained in the
C<Astro::Fluxes> object,
@fluxes_not_dervied = $fluxes->allfluxes();
@fluxes_including_dervied = $fluxes->allfluxes( 'derived' );
by default this will not return the derived fluxes, however the method
takes an optional arguement of 'derived', in which case it will do.
Astro-GCN
view release on metacpan or search on metacpan
Util/SWIFT/SWIFT.pm view on Meta::CPAN
} elsif ( $bits[4] == 1 ) {
$status{"image_trig"} = 1;
} elsif ( $bits[5] == 1 ) {
$status{"def_not_grb"} = 1;
}
return %status;
}
Astro-Hipparcos
view release on metacpan or search on metacpan
nextchar|||
ninstr|||
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
not_a_number|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
offer_nice_chunk|||
oopsAV|||
# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
# define PERL_PATCHLEVEL_H_IMPLICIT
# include <patchlevel.h>
# endif
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
/* Replace: 1 */
# define PERL_VERSION PATCHLEVEL
Astro-IRAF-CL
view release on metacpan or search on metacpan
my $error_handler = $params{'error_handler'} || undef;
my $warning_handler = $params{'warning_handler'} || undef;
my $death_handler = $params{'death_handler'} || undef;
my $timeout_handler = $params{'timeout_handler'} || undef;
my ($q_timeout,$q_eof,$q_error,$q_warning,$not_available) = (0,0,0,0,0);
my @output;
foreach my $command (@commands){
$q_warning = 1; exp_continue},
'-re','^ERROR:',sub {&cl_error_handler($self,$command,
$error_handler);
$q_error = 1; exp_continue},
'-ex','No help available for',sub{print STDERR "No help available for $helpname\n";
$not_available = 1;
},
'-re',$possible_prompt,sub{$self->_register_package($command)},
'-re',$self->{'cl_prompt'});
next if ($q_timeout || $q_error || $q_eof || $not_available);
my $output = $t->exp_before();
my @lines = split /\n/,$output;
foreach my $line (@lines){
Astro-MapProjection
view release on metacpan or search on metacpan
nextchar|||
ninstr|||
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
not_a_number|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
offer_nice_chunk|||
oopsAV|||
# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
# define PERL_PATCHLEVEL_H_IMPLICIT
# include <patchlevel.h>
# endif
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
/* Replace: 1 */
# define PERL_VERSION PATCHLEVEL
Astro-Nova
view release on metacpan or search on metacpan
nextchar|||
ninstr|||
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
not_a_number|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
offer_nice_chunk|||
oopsAV|||
# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
# define PERL_PATCHLEVEL_H_IMPLICIT
# include <patchlevel.h>
# endif
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
/* Replace: 1 */
# define PERL_VERSION PATCHLEVEL
Astro-SpaceTrack
view release on metacpan or search on metacpan
inc/My/Module/Test.pm view on Meta::CPAN
our @EXPORT = ## no critic (ProhibitAutomaticExportation)
qw{
is_error
is_error_or_skip
is_not_success
is_success
is_success_or_skip
last_modified
most_recent_http_response
not_defined
site_check
spacetrack_user
spacetrack_skip_no_prompt
skip_site
throws_exception
inc/My/Module/Test.pm view on Meta::CPAN
my $got = $rslt->code();
__skip_if_server_error( $method, $got );
return cmp_ok $got, '==', $code, $name;
}
sub is_not_success { ## no critic (RequireArgUnpacking)
my ( $obj, $method, @args ) = @_;
my $name = pop @args;
$rslt = eval { $obj->$method( @args ) };
$rslt or do {
@_ = ( "$name threw exception: $@" );
inc/My/Module/Test.pm view on Meta::CPAN
sub most_recent_http_response {
return $rslt;
}
sub not_defined {
@_ = ( ! defined $_[0], @_[1 .. $#_] );
goto &ok;
}
# Prompt the user. DO NOT call this if $ENV{AUTOMATED_TESTING} is set.
inc/My/Module/Test.pm view on Meta::CPAN
'Make sure $st->fubar( 42 ) returns a 404';
This subroutine is like C<is_error(), but if the returned status is 500,
the test is skipped.
=head2 is_not_success
is_not_success $st, fubar => 42,
'Make sure $st->fubar( 42 ) fails';
This subroutine executes the given method and tests its result for
failure. The method is assumed to return an HTTP::Response object. The
arguments are:
inc/My/Module/Test.pm view on Meta::CPAN
or diag $resp->status_line();
This subroutine returns the HTTP::Response object from the most-recent
test that actually generated one.
=head2 not_defined
not_defined $resp, 'Make sure we have a response';
This subroutine performs a test which succeeds its first argument is not
defined. The second argument is the test name.
=head2 set_skip
Astro-UTDF
view release on metacpan or search on metacpan
lib/Astro/UTDF.pm view on Meta::CPAN
],
frequency_band_and_transmission_type => '0x%02x',
front => $hexify,
measurement_time => sub {
# Note that perldoc -f localtime says that the string
# returned in scalar context is _not_ locale-dependant.
return scalar gmtime $_[0]->measurement_time();
},
mode => '0x%04x',
raw_record => $hexify,
rear => $hexify,
Astro-WCS-LibWCS
view release on metacpan or search on metacpan
/* declarations which are not in libwcs headers */
#include "wcsdecl.h"
static int
not_here(char *s)
{
croak("%s not implemented on this architecture", s);
return -1;
}
case 'P':
if (strEQ(name, "PI"))
#ifdef PI
return PI;
#else
goto not_there;
#endif
break;
case 'Q':
break;
case 'R':
case 'T':
if (strEQ(name, "TNX_CHEBYSHEV"))
#ifdef TNX_CHEBYSHEV
return TNX_CHEBYSHEV;
#else
goto not_there;
#endif
if (strEQ(name, "TNX_LEGENDRE"))
#ifdef TNX_LEGENDRE
return TNX_LEGENDRE;
#else
goto not_there;
#endif
if (strEQ(name, "TNX_POLYNOMIAL"))
#ifdef TNX_POLYNOMIAL
return TNX_POLYNOMIAL;
#else
goto not_there;
#endif
if (strEQ(name, "TNX_XFULL"))
#ifdef TNX_XFULL
return TNX_XFULL;
#else
goto not_there;
#endif
if (strEQ(name, "TNX_XHALF"))
#ifdef TNX_XHALF
return TNX_XHALF;
#else
goto not_there;
#endif
if (strEQ(name, "TNX_XNONE"))
#ifdef TNX_XNONE
return TNX_XNONE;
#else
goto not_there;
#endif
break;
case 'U':
break;
case 'V':
case 'W':
if (strEQ(name, "WCS_AIR"))
#ifdef WCS_AIR
return WCS_AIR;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_AIT"))
#ifdef WCS_AIT
return WCS_AIT;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_ALTAZ"))
#ifdef WCS_ALTAZ
return WCS_ALTAZ;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_ARC"))
#ifdef WCS_ARC
return WCS_ARC;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_AZP"))
#ifdef WCS_AZP
return WCS_AZP;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_B1950"))
#ifdef WCS_B1950
return WCS_B1950;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_BON"))
#ifdef WCS_BON
return WCS_BON;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_CAR"))
#ifdef WCS_CAR
return WCS_CAR;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_CEA"))
#ifdef WCS_CEA
return WCS_CEA;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_COD"))
#ifdef WCS_COD
return WCS_COD;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_COE"))
#ifdef WCS_COE
return WCS_COE;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_COO"))
#ifdef WCS_COO
return WCS_COO;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_CPS"))
#ifdef WCS_CPS
return WCS_CPS;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_CSC"))
#ifdef WCS_CSC
return WCS_CSC;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_CYP"))
#ifdef WCS_CYP
return WCS_CYP;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_DSS"))
#ifdef WCS_DSS
return WCS_DSS;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_ECLIPTIC"))
#ifdef WCS_ECLIPTIC
return WCS_ECLIPTIC;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_GALACTIC"))
#ifdef WCS_GALACTIC
return WCS_GALACTIC;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_GLS"))
#ifdef WCS_GLS
return WCS_GLS;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_J2000"))
#ifdef WCS_J2000
return WCS_J2000;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_LIN"))
#ifdef WCS_LIN
return WCS_LIN;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_LINEAR"))
#ifdef WCS_LINEAR
return WCS_LINEAR;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_MER"))
#ifdef WCS_MER
return WCS_MER;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_MOL"))
#ifdef WCS_MOL
return WCS_MOL;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_NCP"))
#ifdef WCS_NCP
return WCS_NCP;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_NPOLE"))
#ifdef WCS_NPOLE
return WCS_NPOLE;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_PAR"))
#ifdef WCS_PAR
return WCS_PAR;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_PCO"))
#ifdef WCS_PCO
return WCS_PCO;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_PIX"))
#ifdef WCS_PIX
return WCS_PIX;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_PLANET"))
#ifdef WCS_PLANET
return WCS_PLANET;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_PLT"))
#ifdef WCS_PLT
return WCS_PLT;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_QSC"))
#ifdef WCS_QSC
return WCS_QSC;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_SIN"))
#ifdef WCS_SIN
return WCS_SIN;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_SPA"))
#ifdef WCS_SPA
return WCS_SPA;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_STG"))
#ifdef WCS_STG
return WCS_STG;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_TAN"))
#ifdef WCS_TAN
return WCS_TAN;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_TNX"))
#ifdef WCS_TNX
return WCS_TNX;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_TSC"))
#ifdef WCS_TSC
return WCS_TSC;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_ZEA"))
#ifdef WCS_ZEA
return WCS_ZEA;
#else
goto not_there;
#endif
if (strEQ(name, "WCS_ZPN"))
#ifdef WCS_ZPN
return WCS_ZPN;
#else
goto not_there;
#endif
break;
case 'X':
break;
case 'Y':
break;
}
errno = EINVAL;
return 0;
not_there:
errno = ENOENT;
return 0;
}
Astro-WaveBand
view release on metacpan or search on metacpan
lib/Astro/WaveBand.pm view on Meta::CPAN
# Overloading
use overload
'""' => "natural",
'==' => "equals",
'!=' => "not_equals",
'<=>' => "compare",
'fallback' => 1;
# Constants
lib/Astro/WaveBand.pm view on Meta::CPAN
else {
return ($self->natural eq $comp->natural);
}
}
=item B<not_equals>
Compares two C<Astro::WaveBand> objects for inequality.
if ($wb1->not_equals($wb2)) {...}
This method will return 1 if, in the above example, either the
C<natural> method or the C<instrument> method return different
values. If the instrument is undefined for either object, then
the C<natural> method will be used.
lib/Astro/WaveBand.pm view on Meta::CPAN
is functionally the same as the first example.
=cut
sub not_equals {
my $self = shift;
my $comp = shift;
if (!defined($self->instrument) || !defined($comp->instrument)) {
return ($self->natural ne $comp->natural);
Astro-satpass
view release on metacpan or search on metacpan
inc/My/Module/Recommend.pm view on Meta::CPAN
EOD
. ( $] < 5.010 ? <<'EOD' : '' ) ),
Unfortunately, the current Date::Manip requires Perl 5.10. Since
you are running an earlier Perl, you can try installing Date-Manip
5.54, which is the most recent version that does _not_ require
Perl 5.10.
EOD
__any( 'Geo::Coder::OSM' => <<'EOD' ),
This module is required for the 'satpass' script's 'geocode'
command, but is otherwise unused by this package. If you do not
Async-Chain
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
use warnings FATAL => 'all';
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;
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/Async/Chain.pm');
Async-Interrupt
view release on metacpan or search on metacpan
#else
#define ecb_div_rd(val,div) ((val) < 0 ? - ((-(val) + (div) - 1) / (div)) : ((val) ) / (div))
#define ecb_div_ru(val,div) ((val) < 0 ? - ((-(val) ) / (div)) : ((val) + (div) - 1) / (div))
#endif
#if ecb_cplusplus_does_not_suck
/* does not work for local types (http://www.open-std.org/jtc1/sc22/wg21/docs/papers/2008/n2657.htm) */
template<typename T, int N>
static inline int ecb_array_length (const T (&arr)[N])
{
return N;
Async-Simple-Pool
view release on metacpan or search on metacpan
t/11-boilerplate.t view on Meta::CPAN
use warnings;
use Test::More;
plan tests => 5;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
t/11-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]/,
);
}
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/Async/Simple/Pool.pm');
Async-Trampoline
view release on metacpan or search on metacpan
src/ppport.h view on Meta::CPAN
ninstr|||n
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
noperl_die|||vn
not_a_number|||
not_incrementable|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
oopsAV|||
oopsHV|||
src/ppport.h view on Meta::CPAN
watch|||
whichsig_pvn||5.015004|
whichsig_pv||5.015004|
whichsig_sv||5.015004|
whichsig|||
win32_croak_not_implemented|||n
with_queued_errors|||
wrap_op_checker||5.015008|
write_to_stderr|||
xs_boot_epilog|||
xs_handshake|||vn
src/ppport.h view on Meta::CPAN
# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
# define PERL_PATCHLEVEL_H_IMPLICIT
# include <patchlevel.h>
# endif
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
/* Replace: 1 */
# define PERL_VERSION PATCHLEVEL
Atompub
view release on metacpan or search on metacpan
lib/Atompub/MediaType.pm view on Meta::CPAN
__PACKAGE__->mk_accessors(qw(type subtype parameters));
use overload (
q{""} => \&as_string,
eq => \&is_a,
ne => \&is_not_a,
fallback => 1,
);
sub new {
my($class, $arg) = @_;
lib/Atompub/MediaType.pm view on Meta::CPAN
}
return 1 if ! $test->parameters || ! $self->parameters;
return $test->parameters eq $self->parameters;
}
sub is_not_a {
my($self, @args) = @_;
!$self->is_a(@args);
}
1;
lib/Atompub/MediaType.pm view on Meta::CPAN
=head2 $type->extension
=head2 $type->is_a
=head2 $type->is_not_a
=head2 $type->as_string
=head2 $type->without_parameters
Attean
view release on metacpan or search on metacpan
lib/Attean/API/QueryPlanner.pm view on Meta::CPAN
$k = ($k < scalar(@todo)) ? $k : scalar(@todo); # in case we're joining fewer than the batch size
foreach my $i (2 .. $k) { # we've already initialized plans for evaluating single elements; now consider plans for groups of elements (with group sizes 2, 3, ..., $k)
foreach my $s (subsets(\@todo, $i)) { # pick a subset of size $i of the elements that need to be planned
my $s_key = join('.', sort @$s);
$optPlan{$s_key} = [];
foreach my $o (subsets($s)) { # partition the subset s into two (o and not_o)
next if (scalar(@$o) == 0); # only consider proper, non-empty subsets
next if (scalar(@$o) == scalar(@$s)); # only consider proper, non-empty subsets
my $o_key = join('.', sort @$o);
my %o = map { $_ => 1 } @$o;
my $not_o_key = join('.', sort grep { not exists $o{$_} } @$s);
my $lhs = $optPlan{$o_key}; # get the plans for evaluating o
my $rhs = $optPlan{$not_o_key}; # get the plans for evaluating not_o
# compute and store all the possible ways to evaluate s (o ⋈ not_o)
push(@{ $optPlan{$s_key} }, $self->join_plans($model, $active_graphs, $default_graphs, $lhs, $rhs, 'inner'));
$optPlan{$s_key} = [$self->prune_plans($model, $interesting, $optPlan{$s_key})];
}
}
}
Attribute-Boolean
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
use warnings FATAL => 'all';
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;
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/Attribute/Boolean.pm');
( run in 0.625 second using v1.01-cache-2.11-cpan-cc502c75498 )