view release on metacpan or search on metacpan
t/data/wfcam.hdr view on Meta::CPAN
Engineering:
DET_TEMP= 74.6 / [K] Detector array temperature
DETTEMPB= 74.7 / [K] DET_TEMP alternate sensor
DETTEMPS= 75.0 / [K] Det temperature setpoint
DET_HTP = 53.5 / [percent] Det heater level
CCD_TEMP= 160.3 / [K] AG CCD temperature
CCDTEMPS= 160.0 / [K] AG CCD temperature setpoint
CCD_HTP = 11.5 / [percent] AG CCD heater level
FS_TEMP = 75.1 / [K] CCC 1st stage temperature
LNC_TEMP= 106.6 / [K] LN can temperature
SS_TEMP = 18.9 / [K] CCC 2nd stage temperature
M3_TEMP = 128.0 / [K] M3 temperature
TR_TEMP = 134.4 / [K] Top ring temperature
view all matches for this distribution
view release on metacpan or search on metacpan
buildtools/gen_hip_struct.pl view on Meta::CPAN
275-281 F7.4 mag Hpmag *? Median magnitude in Hipparcos system (H44)
283-288 F6.4 mag e_Hpmag *? Standard error on Hpmag (H45)
290-294 F5.3 mag Hpscat ? Scatter on Hpmag (H46)
296-298 I3 --- o_Hpmag ? Number of observations for Hpmag (H47)
300 A1 --- m_Hpmag *[A-Z*-] Reference flag for Hpmag (H48)
302-306 F5.2 mag Hpmax ? Hpmag at maximum (5th percentile) (H49)
308-312 F5.2 mag HPmin ? Hpmag at minimum (95th percentile) (H50)
314-320 F7.2 d Period ? Variability period (days) (H51)
322 A1 --- HvarType *[CDMPRU]? variability type (H52)
324 A1 --- moreVar *[12] Additional data about variability (H53)
326 A1 --- morePhoto [ABC] Light curve Annex (H54)
328-337 A10 --- CCDM CCDM identifier (H55)
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Astro/MoonPhase/Simple.pm view on Meta::CPAN
=over 2
=item * C<MoonPhase> : the moon phase (terminator phase angle) as a number between 0 and 1. New Moon (dark) being 0 and Full Moon (bright) being 1.
=item * C<MoonPhase%> : the above as a percentage.
=item * C<MoonIllum> : the illuminated fraction of the moon's disc as a number between 0 and 1. New Moon (dark) being 0 and Full Moon (bright) being 1.
=item * C<MoonIllum%> : the above as a percentage.
=item * C<MoonAge> : the fractional number of days since the Moon's birth (new moon), at specified date.
=item * C<MoonDist> : the distance of the Moon from the centre of the Earth (kilometers).
view all matches for this distribution
view release on metacpan or search on metacpan
MoonPhase.pm view on Meta::CPAN
# phase - calculate phase of moon as a fraction:
#
# The argument is the time for which the phase is requested,
# expressed as a Julian date and fraction. Returns the terminator
# phase angle as a percentage of a full circle (i.e., 0 to 1),
# and stores into pointer arguments the illuminated fraction of
# the Moon's disc, the Moon's age in days and fraction, the
# distance of the Moon from the centre of the Earth, and the
# angular diameter subtended by the Moon as seen by an observer
# at the centre of the Earth.
MoonPhase.pm view on Meta::CPAN
The argument is the time for which the phase is requested,
expressed as a time returned by the C<time> function. If C<$seconds_since_1970>
is omitted, it does C<phase(time)>.
Return value in scalar context is $MoonPhase,
the terminator phase angle as a percentage of a full circle (i.e., 0 to 1).
=over 4
=item B<Return values in array context:>
=item $MoonPhase:
the terminator phase angle as a percentage of a full circle (i.e., 0 to 1)
=item $MoonIllum:
the illuminated fraction of the Moon's disc
view all matches for this distribution
view release on metacpan or search on metacpan
libnova-0.15.0/aclocal.m4 view on Meta::CPAN
# _LT_FUNC_STRIPNAME_CNF
# ----------------------
# func_stripname_cnf prefix suffix name
# strip PREFIX and SUFFIX off of NAME.
# PREFIX and SUFFIX must not contain globbing or regex special
# characters, hashes, percent signs, but SUFFIX may contain a leading
# dot (in which case that matches only a dot).
#
# This function is identical to the (non-XSI) version of func_stripname,
# except this one can be used by m4 code that may be executed by configure,
# rather than the libtool script.
view all matches for this distribution
view release on metacpan or search on metacpan
</Group>
<Param name="seeing" ucd="instr.obsty.site.seeing" value="2" units="arcsec" />
<Param name="misc" ucd="misc.junk" value="unknown" />
</What>
<Why>
<Classification probability="30" units="percent" type="ot">Fast Orphan Optical Transient</Classification>
<Identification type="associated">NGC1234</Identification>
</Why>
</VOEvent>
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Astro/Coord/ECI/Utils.pm view on Meta::CPAN
'T' => 'H:%%M:%%S%s',
'V' => 'e-%%b-%%Y',
);
sub _pre_strftime_mung_fmt {
my ( $percent, $places, $fmt, $frac, $dflt_places ) = @_;
length( $percent ) % 2
and $mung{$fmt}
or return "$percent$places$fmt";
my $f = '';
defined $places
or $places = $dflt_places;
if ( defined $places ) {
index( $places, '.' ) == 0
lib/Astro/Coord/ECI/Utils.pm view on Meta::CPAN
$places eq '.'
and $places = '';
$f = sprintf "%${places}f", $frac;
$f =~ s/ \A 0+ //smx;
}
return $percent . __sprintf( $mung{$fmt}, $f );
}
}
sub __sprintf {
my ( $tplt, @args ) = @_;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Astroboy/AlbumDir.pm view on Meta::CPAN
return $self;
}
sub ls_mp3_percent {
my $self = shift;
my $total_files = $self->ls_count || 0;
my $total_mp3 = $self->ls_mp3_count || 0;
$total_mp3 or return 0;
lib/Astroboy/AlbumDir.pm view on Meta::CPAN
int( ($total_mp3 * 100 ) / $total_files );
}
sub is_album { ($_[0]->ls_mp3_percent) > 50 ? 1 : 0 }
sub empty_trash {
$_[0]->ls_trash_count or warn("Nothing in trash.\n") and return;
unlink @{$_[0]->ls_trash};
1;
lib/Astroboy/AlbumDir.pm view on Meta::CPAN
=head2 ls_trash()
Like ls(), returns everything not mp3.
=head2 ls_mp3_percent()
Of the files in this dir, what percentage are mp3s.
=head2 is_album()
If more than 50% of files are mp3, then true, else false.
view all matches for this distribution
view release on metacpan or search on metacpan
examples/stress/lib/Stress/Metrics.pm view on Meta::CPAN
my %latency_ms;
for my $op (keys %{ $self->{latencies} }) {
my @sorted = sort { $a <=> $b } @{ $self->{latencies}{$op}{reservoir} };
next unless @sorted;
$latency_ms{$op} = {
p50 => _percentile(\@sorted, 0.50),
p95 => _percentile(\@sorted, 0.95),
p99 => _percentile(\@sorted, 0.99),
};
}
$self->{ops} = {};
$self->{latencies} = {};
$self->{errors_typed} = {};
examples/stress/lib/Stress/Metrics.pm view on Meta::CPAN
latency_ms => \%latency_ms,
errors_typed => \%errors,
};
}
sub _percentile {
my ($sorted, $p) = @_;
my $idx = int(@$sorted * $p);
$idx = $#$sorted if $idx > $#$sorted;
return $sorted->[$idx];
}
view all matches for this distribution
view release on metacpan or search on metacpan
lib/At/Protocol/DID.pm view on Meta::CPAN
#~ - entire URI is ASCII: [a-zA-Z0-9._:%-]
#~ - always starts "did:" (lower-case)
#~ - method name is one or more lower-case letters, followed by ":"
#~ - remaining identifier can have any of the above chars, but can not end in ":"
#~ - it seems that a bunch of ":" can be included, and don't need spaces between
#~ - "%" is used only for "percent encoding" and must be followed by two hex characters (and thus can't end in "%")
#~ - query ("?") and fragment ("#") stuff is defined for "DID URIs", but not as part of identifier itself
#~ - "The current specification does not take a position on the maximum length of a DID"
#~ - in current atproto, only allowing did:plc and did:web. But not *forcing* this at lexicon layer
#~ - hard length limit of 8KBytes
#~ - not going to validate "percent encoding" here
sub ensureValidDid ($did) {
# check that all chars are boring ASCII
throw InvalidDidError('Disallowed characters in DID (ASCII letters, digits, and a couple other characters only)')
unless $did =~ /^[a-zA-Z0-9._:%-]*$/;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/AtteanX/Query/Cache/Analyzer.pm view on Meta::CPAN
my $curplan = $curplanner->plan_for_algebra($algebra, $self->model, [$self->graph]);
my $curcost = $curplanner->cost_for_plan($curplan, $self->model);
$self->log->trace("Cost of incumbent plan: $curcost");
my %costs;
my %triples;
my $percentage = 1-($self->improvement_threshold/100);
my $planner = AtteanX::Query::Cache::Analyzer::QueryPlanner->new;
foreach my $bgp ($algebra->subpatterns_of_type('Attean::Algebra::BGP')) { # TODO: Parallelize
foreach my $triple (@{ $bgp->triples }) { # TODO: May need quads
my $key = $triple->canonicalize->tuples_string;
next if ($self->model->is_cached($key));
lib/AtteanX/Query/Cache/Analyzer.pm view on Meta::CPAN
}
my $plan = $planner->plan_for_algebra($algebra, $self->model, [$self->graph]);
$self->log->debug("Alternative plan after fetching $key:\n" . $plan->as_string);
$costs{$key} = $planner->cost_for_plan($plan, $self->model);
$self->log->info("Triple $key has cost $costs{$key}, current $curcost");
if ($costs{$key} < $curcost * $percentage) {
$triples{$key} = $triple;
}
}
}
no sort 'stable';
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Audio/Analyzer.pm view on Meta::CPAN
ref is the same size as the number of elements in each channel from $chunk->fft.
=item $completed = $analyzer->progress;
Return a number between 0 and 99 that represents in percent how far along in
the file we have processed.
=back
=head1 CHUNK SYSTEM
view all matches for this distribution
view release on metacpan or search on metacpan
libsamplerate/Cfg/ltmain.sh view on Meta::CPAN
# func_stripname PREFIX SUFFIX NAME
# ---------------------------------
# strip PREFIX and SUFFIX from NAME, and store in func_stripname_result.
# PREFIX and SUFFIX must not contain globbing or regex special
# characters, hashes, percent signs, but SUFFIX may contain a leading
# dot (in which case that matches only a dot).
if test yes = "$_G_HAVE_XSI_OPS"; then
eval 'func_stripname ()
{
$debug_cmd
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Audio/MPD/Common/Time.pm view on Meta::CPAN
traits => [ 'Hash' ],
is => 'ro',
isa => 'HashRef',
lazy_build => 1,
handles => {
percent => [ get => 'percent' ],
sofar => [ get => 'sofar' ],
left => [ get => 'left' ],
total => [ get => 'total' ],
sofar_secs => [ get => 'sofar_secs' ],
sofar_mins => [ get => 'sofar_mins' ],
lib/Audio/MPD/Common/Time.pm view on Meta::CPAN
my $self = shift;
my $time = $self->time;
my ($seconds_sofar, $seconds_total) = split /:/, $time;
my $seconds_left = $seconds_total - $seconds_sofar;
my $percent = $seconds_total ? 100*$seconds_sofar/$seconds_total : 0;
# Parse the time so far
my $sofar_mins = int( $seconds_sofar / 60 );
my $sofar_secs = $seconds_sofar % 60;
my $sofar = sprintf "%d:%02d", $sofar_mins, $sofar_secs;
lib/Audio/MPD/Common/Time.pm view on Meta::CPAN
# cooked values
sofar => $sofar,
left => $left,
total => $total,
percent => sprintf("%.1f", $percent), # 1 decimal
# details
sofar_secs => $sofar_secs,
sofar_mins => $sofar_mins,
total_secs => $total_secs,
lib/Audio/MPD/Common/Time.pm view on Meta::CPAN
=head2 my $str = $time->left;
Return total C<$time> (C<minutes:seconds> format).
=head2 my $percent = $time->percent;
Return elapsed C<$time> (percentage, 1 digit).
=head2 my $secs = $time->seconds_sofar;
Return elapsed C<$time> in seconds.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Audio/MPD.pm view on Meta::CPAN
=head2 volume
$mpd->volume( [+][-]$volume );
Sets the audio output volume percentage to absolute C<$volume>. If
C<$volume> is prefixed by '+' or '-' then the volume is changed
relatively by that value.
=head2 outputs
view all matches for this distribution
view release on metacpan or search on metacpan
If this exists, filtering is disabled.
=item I<lowpass_filter_width>
The width of the filter expressed as a percentage of the filter frequency.
Defaults to 15%.
=item I<highpass_filter_frequency>
If set to a frequency (in Hertz), the input will pass through a filter
If this exists, filtering is disabled.
=item I<highpass_filter_width>
The width of the filter expressed as a percentage of the filter frequency.
Defaults to 15%.
=item I<apply_delay>
This will correct for the MP3 encoding delay. If set to 1, the first
view all matches for this distribution
view release on metacpan or search on metacpan
demo/player-gtk-ipc view on Meta::CPAN
sub progress_update { 1 }
sub progress_timeout {
my $progressbar = shift;
my $new_val = $progressbar->get_current_percentage;
$new_val += 0.02;
$new_val = 0.0 if $new_val >= 1.0;
$progressbar->update($new_val);
return 1;
}
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Audio/Nama.pm view on Meta::CPAN
example: |
vol * 1.5 # Multiply the current volume by 1.5
vol 75 # Set the current volume to 75
! # Depending on your namarc configuration, this means
! # either 75% of full volume (-ea) or 75 dB (-eadb).
vol - 5.7 # Decrease current volume by 5.7 (percent or dB)
vol # Display the volume setting of the current track.
mute:
type: track
what: |
Mute the current track by reducing the volume parameter.
lib/Audio/Nama.pm view on Meta::CPAN
pan:
type: track
what: |
Change or display the current panning position of the
current track. Panning is moving the audio in the stereo
panorama between right and left. Position is given in percent.
0 is hard left and 100 hard right, 50% is dead centre.
short: p
parameters: [ <float:pan_position_in_percent> ]
example: |
pan 75 # Pan the track to a position between centre and hard right
p 50 # Move the current track to the centre.
pan # Show the current position of the track in the stereo panorama.
pan_right:
lib/Audio/Nama.pm view on Meta::CPAN
afx etc 6 100 45 2.5 # add a chorus effect on the reverbed signal
guitar # Change back to the main guitar track
wet 25 # Set the balance between wet/dry track to 25% wet, 75% dry.
set_insert_wetness:
type: effect
what: Set wet/dry balance of the insert for the current track. The balance is given in percent, 0 meaning dry and 100 wet signal only.
short: wet
parameters: [ pre | post ] <n_wetness>
example: |
wet pre 50 # Set the prefader insert to be balanced 50/50 wet/dry.
wet 100 # Simpler if there's only one insert
lib/Audio/Nama.pm view on Meta::CPAN
unmute $i;
}
}
# Quantise current track to the nearest quantise_note denomination with a
# precision of precision percent starting at start_position for
# quantise_measures measures.
# Example:
# cquantm now 12 16 100 # quantise the next 8 measures to 16th notes with
# # 100% precision
proc cquantm start_position quantise_measures quantise_note precision {
lib/Audio/Nama.pm view on Meta::CPAN
return 0;
}
}
# Quantise a track to the nearest quantise_note denomination with a
# precision of precision percent starting at start_position for
# quantise_measures measures.
# Example:
# quantm piano 0 10 8 75 # quantise piano from beginning to 10 measures
# # to 8th notes with 75% precision
proc quantm my_track start_position quantise_measures quantise_note precision {
lib/Audio/Nama.pm view on Meta::CPAN
return 0;
}
}
# Quantise the current track to the nearest quantise_note with a
# precision of precision percent starting at start_position upto
# end_position.
# Example:
# cquant 0 end 16 95
proc cquant start_position end_position quantise_note precision {
let start_pos = [eval_pos $start_position];
lib/Audio/Nama.pm view on Meta::CPAN
return 0;
}
}
# Quantise the track to the nearest quantise_note denomination with a
# precision of precision percent starting at start_position upto
# end_position.
# Example:
# quant piano 2 end 16 100
proc quant my_track start_position end_position quantise_note precision {
let start_pos = [eval_pos $start_position];
lib/Audio/Nama.pm view on Meta::CPAN
return 0;
}
}
# Quantise all track in the group to the nearest quantise_notes with a
# precision of precision percent, starting at start_position for
# quantise_measures measures.
# example:
# tnew piano
# tnew bass
# let band = {piano bass}
lib/Audio/Nama.pm view on Meta::CPAN
}
return $cur_return_value;
}
# Quantise all tracks in the group to the nearest quantise_note with a
# precision of precision percent starting at start_position upto
# end_position.
# Example:
# tnew piano
# tnew bass
# let band = {piano bass}
view all matches for this distribution
view release on metacpan or search on metacpan
mpg123/README view on Meta::CPAN
NAS_SOUND_PORT_DURATION
NAS_SOUND_LOW_WATER_MARK
Change them to optimize the player for your environment. For slow
networks a proven config is:
#define NAS_SOUND_PORT_DURATION 10 /* seconds */
#define NAS_SOUND_LOW_WATER_MARK 75 /* percent */
Pentium optimization notes:
---------------------------
The ASM optimaztions are especially for Intel Pentium FPUs.
On other processorts the egcs compiler optimization
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Audio/RPLD.pm view on Meta::CPAN
The unit of value.
=item pc
The volume in percent.
=back
The current volume (as float) is value/scale.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Audio/Radio/XM/PCR.pm view on Meta::CPAN
$self->{'signal_strength'}->{'sat'}->{'1'}->{'db'} = $sat_db[1];
$self->{'signal_strength'}->{'sat'}->{'2'}->{'db'} = $sat_db[2];
for (my $x=1; $x<=2; $x++) {
if ($sat_db[$x] < 12) {
$self->{'signal_strength'}->{'sat'}->{$x}->{'percent'} = $sat_db[$x] * 80 / 12;
} elsif ($sat_db[$x] < 16) {
$self->{'signal_strength'}->{'sat'}->{$x}->{'percent'} = ((($sat_db[$x] - 48) * 20 / 4) + 80);
} else {
$self->{'signal_strength'}->{'sat'}->{$x}->{'percent'} = 99.9;
}
}
# Terrestrial
my $terr_signal = $self->{'signal_strength'}->{'terr'}->{1}->{'BER'} / 68;
lib/Audio/Radio/XM/PCR.pm view on Meta::CPAN
$terr_signal = 0;
} elsif ($terr_signal >= 100) {
$terr_signal = 100;
}
$self->{'signal_strength'}->{'terr'}->{1}->{'percent'} = $terr_signal;
# Summary Information
if ($self->{'signal_strength'}->{'sat'}->{'1'}->{'db'} > $self->{'signal_strength'}->{'sat'}->{'2'}->{'db'}) {
$self->{'signal_strength'}->{'sat'}->{'db'} = $self->{'signal_strength'}->{'sat'}->{'1'}->{'db'};
$self->{'signal_strength'}->{'sat'}->{'percent'} = $self->{'signal_strength'}->{'sat'}->{'1'}->{'percent'};
} else {
$self->{'signal_strength'}->{'sat'}->{'db'} = $self->{'signal_strength'}->{'sat'}->{'2'}->{'db'};
$self->{'signal_strength'}->{'sat'}->{'percent'} = $self->{'signal_strength'}->{'sat'}->{'2'}->{'percent'};
}
$self->{'signal_strength'}->{'terr'}->{'percent'} = $self->{'signal_strength'}->{'terr'}->{'1'}->{'percent'};
}
sub _read_mon_song_time {
my $self = shift;
my $code = shift;
view all matches for this distribution
view release on metacpan or search on metacpan
goto out;
}
// Use Xing TOC if available
if ( mp3->xing_frame->has_toc ) {
float percent;
uint8_t ipercent;
uint16_t tva;
uint16_t tvb;
float tvx;
percent = (offset * 1.0 / mp3->song_length_ms) * 100;
ipercent = (int)percent;
if (ipercent > 99)
ipercent = 99;
// Interpolate between 2 TOC points
tva = mp3->xing_frame->xing_toc[ipercent];
if (ipercent < 99) {
tvb = mp3->xing_frame->xing_toc[ipercent + 1];
}
else {
tvb = 256;
}
tvx = tva + (tvb - tva) * (percent - ipercent);
frame_offset = (int)((1.0/256.0) * tvx * mp3->xing_frame->xing_bytes);
frame_offset += mp3->audio_offset;
if (frame_offset == mp3->audio_offset) {
DEBUG_TRACE("find_frame: frame_offset == audio_offset, skipping to next frame\n");
frame_offset += 1;
}
DEBUG_TRACE("find_frame: using Xing TOC, song_length_ms: %d, percent: %f, tva: %d, tvb: %d, tvx: %f, frame offset: %d\n",
mp3->song_length_ms, percent, tva, tvb, tvx, frame_offset
);
}
else {
// calculate offset using bitrate
float bytes_per_ms = mp3->bitrate / 8.0;
view all matches for this distribution
view release on metacpan or search on metacpan
example/player.pl view on Meta::CPAN
=over 5
=item B<--volume|-v> volume
Play at a given software volume (in percent).
=item B<--seek|-s> seconds
Start playback from a given position in the audio.
view all matches for this distribution
view release on metacpan or search on metacpan
examples/js/jquery-1.9.1.js view on Meta::CPAN
ret = jQuery.style( elem, name );
}
// A tribute to the "awesome hack by Dean Edwards"
// Chrome < 17 and Safari 5.0 uses "computed value" instead of "used value" for margin-right
// Safari 5.1.7 (at least) returns percentage for a larger set of values, but width seems to be reliably pixels
// this is against the CSSOM draft spec: http://dev.w3.org/csswg/cssom/#resolved-values
if ( rnumnonpx.test( ret ) && rmargin.test( name ) ) {
// Remember the original values
width = style.width;
examples/js/jquery-1.9.1.js view on Meta::CPAN
}
};
}
// Webkit bug: https://bugs.webkit.org/show_bug.cgi?id=29084
// getComputedStyle returns percent when specified for top/left/bottom/right
// rather than make the css module depend on the offset module, we just check for it here
if ( !jQuery.support.pixelPosition && jQuery.fn.position ) {
jQuery.each( [ "top", "left" ], function( i, prop ) {
jQuery.cssHooks[ prop ] = {
get: function( elem, computed ) {
if ( computed ) {
computed = curCSS( elem, prop );
// if curCSS returns percentage, fallback to offset
return rnumnonpx.test( computed ) ?
jQuery( elem ).position()[ prop ] + "px" :
computed;
}
}
examples/js/jquery-1.9.1.js view on Meta::CPAN
}
var currentTime = fxNow || createFxNow(),
remaining = Math.max( 0, animation.startTime + animation.duration - currentTime ),
// archaic crash bug won't allow us to use 1 - ( 0.5 || 0 ) (#12497)
temp = remaining / animation.duration || 0,
percent = 1 - temp,
index = 0,
length = animation.tweens.length;
for ( ; index < length ; index++ ) {
animation.tweens[ index ].run( percent );
}
deferred.notifyWith( elem, [ animation, percent, remaining ]);
if ( percent < 1 && length ) {
return remaining;
} else {
deferred.resolveWith( elem, [ animation ] );
return false;
}
examples/js/jquery-1.9.1.js view on Meta::CPAN
return hooks && hooks.get ?
hooks.get( this ) :
Tween.propHooks._default.get( this );
},
run: function( percent ) {
var eased,
hooks = Tween.propHooks[ this.prop ];
if ( this.options.duration ) {
this.pos = eased = jQuery.easing[ this.easing ](
percent, this.options.duration * percent, 0, 1, this.options.duration
);
} else {
this.pos = eased = percent;
}
this.now = ( this.end - this.start ) * eased + this.start;
if ( this.options.step ) {
this.options.step.call( this.elem, this.now, this );
view all matches for this distribution
view release on metacpan or search on metacpan
"Legal Entity" shall mean the union of the acting entity and all
other entities that control, are controlled by, or are under common
control with that entity. For the purposes of this definition,
"control" means (i) the power, direct or indirect, to cause the
direction or management of such entity, whether by contract or
otherwise, or (ii) ownership of fifty percent (50%) or more of the
outstanding shares, or (iii) beneficial ownership of such entity.
"You" (or "Your") shall mean an individual or Legal Entity
exercising permissions granted by this License.
view all matches for this distribution
view release on metacpan or search on metacpan
"Legal Entity" shall mean the union of the acting entity and all
other entities that control, are controlled by, or are under common
control with that entity. For the purposes of this definition,
"control" means (i) the power, direct or indirect, to cause the
direction or management of such entity, whether by contract or
otherwise, or (ii) ownership of fifty percent (50%) or more of the
outstanding shares, or (iii) beneficial ownership of such entity.
"You" (or "Your") shall mean an individual or Legal Entity
exercising permissions granted by this License.
view all matches for this distribution
view release on metacpan or search on metacpan
"Legal Entity" shall mean the union of the acting entity and all
other entities that control, are controlled by, or are under common
control with that entity. For the purposes of this definition,
"control" means (i) the power, direct or indirect, to cause the
direction or management of such entity, whether by contract or
otherwise, or (ii) ownership of fifty percent (50%) or more of the
outstanding shares, or (iii) beneficial ownership of such entity.
"You" (or "Your") shall mean an individual or Legal Entity
exercising permissions granted by this License.
view all matches for this distribution
view release on metacpan or search on metacpan
"Legal Entity" shall mean the union of the acting entity and all
other entities that control, are controlled by, or are under common
control with that entity. For the purposes of this definition,
"control" means (i) the power, direct or indirect, to cause the
direction or management of such entity, whether by contract or
otherwise, or (ii) ownership of fifty percent (50%) or more of the
outstanding shares, or (iii) beneficial ownership of such entity.
"You" (or "Your") shall mean an individual or Legal Entity
exercising permissions granted by this License.
view all matches for this distribution
view release on metacpan or search on metacpan
"Legal Entity" shall mean the union of the acting entity and all
other entities that control, are controlled by, or are under common
control with that entity. For the purposes of this definition,
"control" means (i) the power, direct or indirect, to cause the
direction or management of such entity, whether by contract or
otherwise, or (ii) ownership of fifty percent (50%) or more of the
outstanding shares, or (iii) beneficial ownership of such entity.
"You" (or "Your") shall mean an individual or Legal Entity
exercising permissions granted by this License.
view all matches for this distribution
view release on metacpan or search on metacpan
t/modules.pm view on Meta::CPAN
use Cwd;
use Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(%modules $keep
perlversion
percent log_diag log_pass log_err get_module_list
random_sublist is_subset
);
our (%modules);
our $log = 0;
our $keep = '';
t/modules.pm view on Meta::CPAN
: '-nt'),
($dVAR ? '-dVAR' : '')
);
}
sub percent {
$_[1] ? sprintf("%0.1f%%", $_[0]*100/$_[1]) : '';
}
sub log_diag {
my $message = shift;
view all matches for this distribution