view release on metacpan or search on metacpan
lib/App/Requirement/Arch.pm view on Meta::CPAN
The requirement format is defined in I<master_template.pl>. The template is used to create new requirements and check existing templates.
I<master_template.pl> also contains the definition of a use case template. It is possible to modify and expand I<master_template.pl> with
more type or different fields for a type. The discussion below is not about the individual fields but their format, see L<Default template fields>.
for the REQUIREMENT type the template looks like:
{
UUID => {TYPE =>$SCALAR, DEFAULT => undef},
TYPE => {TYPE =>$SCALAR, DEFAULT => 'requirement', ACCEPTED_VALUES => ['use case', 'requirement']},
ABSTRACTION_LEVEL => {TYPE =>$SCALAR, DEFAULT => 'system', ACCEPTED_VALUES => ['architecture', 'system', 'module', 'none'], OPTIONAL => 1},
view release on metacpan or search on metacpan
lib/App/ReslirpTunnel.pm view on Meta::CPAN
sub _autodetect_remote_os {
my $self = shift;
my $ssh = $self->{ssh};
my $out = $ssh->capture('echo %COMSPEC%');
my $looks_like_unix = $out =~ /^\%COMSPEC\%$/m;
if ($looks_like_unix) {
$self->_log(debug => "Looks like a Unix-like system, let's check it further...");
my $uname = lc $ssh->capture('uname -s');
if ($uname =~ /^(Linux|Darwin|FreeBSD|OpenBSD|NetBSD|DragonFly|MidnightBSD|AIX|HP-UX|SunOS|IRIX|OSF1|SCO_SV|QNX)$/i) {
$self->_log(info => "Remote OS identified as Linux/UNIX ($1)");
return 'unix';
view release on metacpan or search on metacpan
lib/App/Ringleader.pm view on Meta::CPAN
applications, you probably want to define your services using
L<Ubic::Service::Plack>.
=head1 CONFIGURATION FILE
The Ringleader configuration file is YAML-based, and looks like
port: 3000
inactivity_delay: 60
services:
techblog.babyl.ca: webapp.techblog
view release on metacpan or search on metacpan
lib/App/RoboBot/Message.pm view on Meta::CPAN
if ($self->raw =~ m{^\!+((\S+).*)}) {
$self->log->debug(sprintf('Legacy bang syntax detected in message on network %s. Rewriting as an expression.', $self->network->name));
my ($no_excl, $maybe_cmd) = ($1, $2);
# If there is at least one pipe character followed by what looks to
# be possibly another command, treat the incoming message as if it
# is the old-style piped command chain, and convert to nested
# expressions.
if ($no_excl =~ m{\|\s+\!\S+}) {
my @chained = split(/\|/, $no_excl);
lib/App/RoboBot/Message.pm view on Meta::CPAN
|| exists $self->bot->macros->{$self->network->id}{lc($maybe_cmd)};
}
} elsif ($self->raw =~ m{ ^ $self->bot->nick->name : \s* (.+) }ixs) {
$self->log->debug(sprintf('Incoming message on network %s was addressed to the bot. Stripping bot name and treating as expression.', $self->network->name));
# It looks like someone said something to us directly, so strip off our
# nick from the front, and treat the reast as if it were a command.
$self->raw('('.$1.')');
}
if ($self->raw =~ m{^\s*\(\S+}o) {
$self->log->debug(sprintf('Incoming message on network %s looks like an expression. Attempting to parse.', $self->network->name));
my $parser = App::RoboBot::Parser->new( bot => $self->bot );
my $expr;
eval {
view release on metacpan or search on metacpan
lib/App/Rssfilter/Match/BbcSports.pm view on Meta::CPAN
=head2 match
my $item_is_BBC_sport = App::Rssfilter::Match::BbcSports::match( $item );
Returns true if ther GUID of C<$item> looks like a BBC sport GUID (like C<http://www.bbc.co.uk/sport>).
=head1 SEE ALSO
=over 4
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
# I'm still wondering if we should slurp Makefile.PL to
# get some context or not ...
my ($package, $file, $line) = caller;
die <<"EOT";
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
# I'm still wondering if we should slurp Makefile.PL to
# get some context or not ...
my ($package, $file, $line) = caller;
die <<"EOT";
view release on metacpan or search on metacpan
lib/App/SVN/Bisect.pm view on Meta::CPAN
END
'view' => <<"END",
Usage: $0 view
Outputs some descriptive information about where we're at, and about
the revisions remaining to be tested. The output looks like:
There are currently 7 revisions under scrutiny.
The last known-unaffected rev is 28913.
The first known- affected rev is 28928.
Currently testing 28924.
view release on metacpan or search on metacpan
lib/App/Sandy/DB/Handle/Expression.pm view on Meta::CPAN
use App::Sandy::Base 'class';
use App::Sandy::DB;
use IO::Compress::Gzip 'gzip';
use IO::Uncompress::Gunzip 'gunzip';
use Storable qw/nfreeze thaw/;
use Scalar::Util 'looks_like_number';
with 'App::Sandy::Role::IO';
our $VERSION = '0.25'; # VERSION
lib/App/Sandy/DB/Handle/Expression.pm view on Meta::CPAN
die "Error parsing expression-matrix '$file': Seqid (first column) not found at line $line\n"
unless defined $fields[0];
die "Error parsing expression-matrix '$file': Count (second column) not found at line $line\n"
unless defined $fields[1];
die "Error parsing expression-matrix '$file': Count (second column) does not look like a number at line $line\n"
if not looks_like_number($fields[1]);
# Only throws a warning, because it is common zero values in expression matrix
if ($fields[1] <= 0) {
log_msg ":: Parsing expression-matrix '$file': Ignoring seqid '$fields[0]': Count (second column) lesser or equal to zero at line $line\n";
next;
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
# I'm still wondering if we should slurp Makefile.PL to
# get some context or not ...
my ($package, $file, $line) = caller;
die <<"EOT";
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
# I'm still wondering if we should slurp Makefile.PL to
# get some context or not ...
my ($package, $file, $line) = caller;
die <<"EOT";
view release on metacpan or search on metacpan
lib/App/Scheme79asm.pm view on Meta::CPAN
use re '/s';
use Carp qw/croak/;
use Data::Dumper qw/Dumper/;
use Data::SExpression qw/consp scalarp/;
use Scalar::Util qw/looks_like_number/;
our $VERSION = '1.000';
our %TYPES = (
LIST => 0,
lib/App/Scheme79asm.pm view on Meta::CPAN
}
$addr = $self->process($addr) if ref $addr eq 'ARRAY';
die 'Addr of toplevel is not atom: ', Dumper($addr), "\n" unless scalarp($addr);
my ($comment_type, $comment_addr) = ($type, $addr);
die 'Computed addr is not a number: ', Dumper($addr), "\n" unless looks_like_number $addr;
if (!looks_like_number $type) {
die "No such type: $type\n" unless exists $TYPES{$type};
$type = $TYPES{$type};
}
$addr += (1 << $self->{addr_bits}) if $addr < 0;
view release on metacpan or search on metacpan
script/set-screensaver-timeout view on Meta::CPAN
Not yet supported.
=item * KDE
To set timeout for the KDE screen locker, the program looks for this line in
C<~/.kde/share/config/kscreensaverrc>:
Timeout=300
modifies the line, save the file.
view release on metacpan or search on metacpan
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
use aliased 'App::SeismicUnixGui::misc::control';
use aliased 'App::SeismicUnixGui::messages::message_director';
use aliased 'App::SeismicUnixGui::specs::big_streams::immodpg_spec';
use aliased 'App::SeismicUnixGui::sunix::shell::xk';
use Scalar::Util qw(looks_like_number);
=pod
instantiate modules
=cut
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
#
# my ($self) = @_;
#
# my $result;
#
# if ( not( looks_like_number( $immodpg->{_control_VbotNtop_factor} ) ) ) {
#
# $immodpg->{_VbotNtop_factor_current} = $immodpg->{_VbotNtop_factor_default};
# $immodpg->{_VbotNtop_factor_prior} = $immodpg->{_VbotNtop_factor_default};
# $immodpg->{_VbotNtop_factorEntry}->delete( 0, 'end' );
# $immodpg->{_VbotNtop_factorEntry}->insert( 0, $immodpg->{_VbotNtop_factor_current} );
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
my @dz = @{ $immodpg->{_ref_dz} };
my $layer = $immodpg->{_model_layer_number};
# print("immodpg,_getVp_ref_dz_ref layer_number = $layer \n");
if ( looks_like_number($layer)
and scalar(@VPtop)
and scalar(@VPbot)
and scalar(@dz) )
{
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
sub _getVp_ref_dz_scalar {
my ($self) = @_;
if ( looks_like_number( $immodpg->{_model_layer_number} ) ) {
my ( $_thickness_m_upper_layer, $Vbot_lower_layer );
my ( @V, @result );
my $layer = $immodpg->{_model_layer_number};
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
sub _get_initialVp_dz4gui {
my ($self) = @_;
if ( looks_like_number( $immodpg->{_model_layer_number} ) ) {
my ( $_thickness_m_upper_layer, $Vbot_lower_layer );
my ( @V, @result );
my $layer = $immodpg->{_model_layer_number};
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
=cut
sub _setVbot {
my ($Vbot) = @_;
if ( looks_like_number($Vbot)
&& $immodpg->{_isVbot_changed_in_gui} eq $yes )
{
=head2 instantiate classes
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
=cut
sub _setVbotNtop_multiply {
my ($self) = @_;
if ( looks_like_number( $immodpg->{_Vbot_multiplied} )
&& looks_like_number( $immodpg->{_Vtop_multiplied} )
&& looks_like_number( $immodpg->{_Vbot_current} )
&& looks_like_number( $immodpg->{_Vtop_current} ) )
{
=head2 instantiate classes
=cut
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
sub _setVtop {
my ($Vtop) = @_;
if ( looks_like_number($Vtop)
&& $immodpg->{_isVtop_changed_in_gui} eq $yes )
{
# print("immodpg,_setVtop,write out fortran value of Vtop\n");
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
=cut
sub _setVtop_lower_layer {
my ($Vtop_lower_layer) = @_;
if ( looks_like_number($Vtop_lower_layer)
&& $immodpg->{_isVtop_lower_layer_changed_in_gui} eq $yes )
{
=head2 instantiate classes
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
sub _updateVbot {
my ($self) = @_;
if ( looks_like_number( $immodpg->{_Vbot_current} )
and looks_like_number( $immodpg->{_Vbot_prior} )
&& $immodpg->{_Vbot_current} != $immodpg->{_Vbot_prior} )
{
# CASE Vbot has changed
$immodpg->{_isVbot_changed_in_gui} = $yes;
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
sub _updateVbot_upper_layer {
my ($self) = @_;
# print("mmodpg, _updateVbot_upper_layer, Vbot_upper_layer_current=..$immodpg->{_Vbot_upper_layer_current}..\n");
if ( looks_like_number( $immodpg->{_Vbot_upper_layer_current} )
&& $immodpg->{_layer_current} > 0
&& $immodpg->{_Vbot_upper_layer_current} !=
$immodpg->{_Vbot_upper_layer_prior} )
{
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
_setVp_dz( 'Vbot_upper_layer', $immodpg->{_Vbot_upper_layer_current} );
return ();
}
elsif ( looks_like_number( $immodpg->{_Vbot_upper_layer_current} )
&& $immodpg->{_Vbot_upper_layer_current} ==
$immodpg->{_Vbot_upper_layer_prior} )
{
# CASE Vbot_upper_layer is unchanged
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
# print("immodpg,_updateVbot_upper_layer,Vbot_upper_layer_prior=$immodpg->{_Vbot_upper_layer_prior}\n");
return ();
}
elsif ( not( looks_like_number( $immodpg->{_Vbot_upper_layer_current} ) ) )
{
# CASE Vbot_upper_layer is unchanged
# print("immodpg, _updateVbot_upper_layer, no value in Vbot_upper_layer NADA\n");
# print("immodpg,_updateVbot_upper_layer,Vbot_upper_layer_prior=$immodpg->{_Vbot_upper_layer_prior}\n");
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
sub _updateVincrement {
my ($self) = @_;
if ( looks_like_number( $immodpg->{_Vincrement_current} )
&& $immodpg->{_Vincrement_current} != $immodpg->{_Vincrement_prior} )
{
# CASE Vincrement changed
$immodpg->{_Vincrement_current} = $immodpg->{_Vincrement_current};
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
sub _updateVtop {
my ($self) = @_;
if ( looks_like_number( $immodpg->{_Vtop_current} )
&& $immodpg->{_Vtop_current} != $immodpg->{_Vtop_prior} )
{
# CASE Vtop changed
$immodpg->{_isVtop_changed_in_gui} = $yes;
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
sub _updateVtop_lower_layer {
my ($self) = @_;
if ( looks_like_number( $immodpg->{_Vtop_lower_layer_current} )
&& $immodpg->{_Vtop_lower_layer_current} !=
$immodpg->{_Vtop_lower_layer_prior} )
{
# CASE Vtop changed
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
sub _updateVbotNtop_factor {
my ($self) = @_;
if ( looks_like_number( $immodpg->{_VbotNtop_factor_current} )
&& $immodpg->{_VbotNtop_factor_current} !=
$immodpg->{_VbotNtop_factor_prior} )
{
# CASE VbotNtop_factor changed
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
sub _updateVbotNtop_multiply {
my ($self) = @_;
if ( looks_like_number( $immodpg->{_Vbot_current} )
&& looks_like_number( $immodpg->{_Vtop_current} )
&& looks_like_number( $immodpg->{_Vbot_multiplied} )
&& looks_like_number( $immodpg->{_Vtop_multiplied} ) )
{
$immodpg->{_Vbot_prior} = $immodpg->{_Vbot_current};
$immodpg->{_Vbot_current} = $immodpg->{_Vbot_multiplied};
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
sub _update_clip {
my ($self) = @_;
if ( looks_like_number( $immodpg->{_clip4plot_current} )
&& $immodpg->{_clip4plot_current} != $immodpg->{_clip4plot_prior} )
{
# CASE clip changed
$immodpg->{_clip4plot_current} = $immodpg->{_clip4plot_current};
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
sub _update_thickness_m {
my ($self) = @_;
if ( looks_like_number( $immodpg->{_thickness_m_current} )
&& $immodpg->{_thickness_m_current} != $immodpg->{_thickness_m_prior} )
{
# CASE _thickness_m changed
$immodpg->{_is_thickness_m_changed_in_gui} = $yes;
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
sub _update_thickness_increment_m_in_gui {
my ($self) = @_;
if ( looks_like_number( $immodpg->{_thickness_increment_m_current} )
&& $immodpg->{_thickness_increment_m_current} !=
$immodpg->{_thickness_increment_m_prior} )
{
# CASE thickness changed
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
sub _update_layer_in_gui {
my ($self) = @_;
if (
looks_like_number( $immodpg->{_layer_current} )
and length(
$immodpg->{_layer_prior} and length( $immodpg->{_layerEntry} )
)
and ( $immodpg->{_layer_current} != $immodpg->{_layer_prior} )
)
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
# print("immodpg, _update_layer_in_gui, prior=$immodpg->{_layer_prior}current= $immodpg->{_layer_current}\n");
return ();
}
elsif ( looks_like_number( $immodpg->{_layer_current} )
and looks_like_number( $immodpg->{_layer_prior} )
and ( $immodpg->{_layer_current} == $immodpg->{_layer_prior} ) )
{
# CASE layer has not changed
# print("immodpg, _update_layer_in_gui, unchanged\n");
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
sub get_initialVp_dz4gui {
my ($self) = @_;
if ( looks_like_number( $immodpg->{_model_layer_number} ) ) {
my ( $_thickness_m_upper_layer, $Vbot_lower_layer );
my ( @V, @result );
my $layer = $immodpg->{_model_layer_number};
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
sub setVbot_minus {
my ($self) = @_;
if ( length( $immodpg->{_VbotEntry} )
and looks_like_number( $immodpg->{_Vincrement_current} ) )
{
my $Vbot = ( $immodpg->{_VbotEntry} )->get();
if ( looks_like_number($Vbot) ) {
my $Vincrement = ( $immodpg->{_VincrementEntry} )->get();
my $newVbot = $Vbot - $Vincrement;
_set_control( 'Vbot', $newVbot );
$newVbot = _get_control('Vbot');
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
sub setVbot_plus {
my ($self) = @_;
if ( length( $immodpg->{_VbotEntry} )
&& looks_like_number( $immodpg->{_Vincrement_current} ) )
{
my $Vbot = ( $immodpg->{_VbotEntry} )->get();
if ( looks_like_number($Vbot) ) {
my $Vincrement = ( $immodpg->{_VincrementEntry} )->get();
my $newVbot = $Vbot + $Vincrement;
_set_control( 'Vbot', $newVbot );
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
sub setVtop_minus {
my ($self) = @_;
if ( length( $immodpg->{_VtopEntry} )
&& looks_like_number( $immodpg->{_Vincrement_current} ) )
{
my $Vtop = ( $immodpg->{_VtopEntry} )->get();
if ( looks_like_number($Vtop) ) {
my $Vincrement = ( $immodpg->{_VincrementEntry} )->get();
my $newVtop = $Vtop - $Vincrement;
_set_control( 'Vtop', $newVtop );
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
{
# print("1. immodpg, setVtop_plus, VtopEntry=$immodpg->{_VtopEntry}\n");
my $Vtop = ( $immodpg->{_VtopEntry} )->get();
if ( looks_like_number($Vtop) ) {
my $Vincrement = ( $immodpg->{_VincrementEntry} )->get();
my $newVtop = $Vtop + $Vincrement;
$immodpg->{_Vtop_prior} = $immodpg->{_Vtop_current};
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
( $immodpg->{_Vbot_upper_layerEntry} )->get();
my $Vbot_upper_layer_current = $immodpg->{_Vbot_upper_layer_current};
# print("1. immodpg, setVbot_upper_layer, immodpg->{_Vbot_upper_layer_current}=$Vbot_upper_layer_current\n");
if ( length $Vbot_upper_layer_current
and looks_like_number($Vbot_upper_layer_current)
and $layer_current > 0 )
{
# print("immodpg, setVbot_upper_layer, immodpg->{_Vbot_upper_layer_current}=$immodpg->{_Vbot_upper_layer_current}\n");
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
sub setVbotNVtop_lower_layer_minus {
my ($self) = @_;
if ( looks_like_number( $immodpg->{_Vincrement_current} )
&& length( $immodpg->{_Vtop_lower_layerEntry} )
&& length( $immodpg->{_VbotEntry} ) )
{
my $Vbot = ( $immodpg->{_VbotEntry} )->get();
my $Vtop_lower_layer = ( $immodpg->{_Vtop_lower_layerEntry} )->get();
my $Vincrement = ( $immodpg->{_VincrementEntry} )->get();
if ( looks_like_number($Vtop_lower_layer)
&& looks_like_number($Vbot) )
{
my $newVtop_lower_layer = $Vtop_lower_layer - $Vincrement;
my $newVbot = $Vbot - $Vincrement;
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
sub setVbotNVtop_lower_layer_plus {
my ($self) = @_;
if ( looks_like_number( $immodpg->{_Vincrement_current} )
&& length( $immodpg->{_Vtop_lower_layerEntry} )
&& length( $immodpg->{_VbotEntry} ) )
{
my $Vbot = ( $immodpg->{_VbotEntry} )->get();
my $Vtop_lower_layer = ( $immodpg->{_Vtop_lower_layerEntry} )->get();
my $Vincrement = ( $immodpg->{_VincrementEntry} )->get();
if ( looks_like_number($Vtop_lower_layer)
&& looks_like_number($Vbot) )
{
my $newVtop_lower_layer = $Vtop_lower_layer + $Vincrement;
my $newVbot = $Vbot + $Vincrement;
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
my ($self) = @_;
# print("layer_current = $immodpg->{_layer_current};\n");
if (
looks_like_number( $immodpg->{_Vincrement_current} )
&& length( $immodpg->{_Vbot_upper_layerEntry} )
&& length( $immodpg->{_VtopEntry} )
)
{
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
my $Vtop = ( $immodpg->{_VtopEntry} )->get();
my $Vbot_upper_layer = ( $immodpg->{_Vbot_upper_layerEntry} )->get();
my $Vincrement = ( $immodpg->{_VincrementEntry} )->get();
my $layer_current = $immodpg->{_layer_current};
if ( looks_like_number($Vbot_upper_layer) && looks_like_number($Vtop)
and $layer_current > 1 )
{
my $newVbot_upper_layer = $Vbot_upper_layer - $Vincrement;
my $newVtop = $Vtop - $Vincrement;
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
sub setVtopNVbot_upper_layer_plus {
my ($self) = @_;
if (
looks_like_number( $immodpg->{_Vincrement_current} )
&& length( $immodpg->{_Vbot_upper_layerEntry} )
&& length( $immodpg->{_VtopEntry} )
)
{
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
my $Vtop = ( $immodpg->{_VtopEntry} )->get();
my $Vbot_upper_layer = ( $immodpg->{_Vbot_upper_layerEntry} )->get();
my $Vincrement = ( $immodpg->{_VincrementEntry} )->get();
my $layer_current = $immodpg->{_layer_current};
if ( looks_like_number($Vbot_upper_layer) && looks_like_number($Vtop)
and $layer_current > 1 )
{
my $newVbot_upper_layer = $Vbot_upper_layer + $Vincrement;
my $newVtop = $Vtop + $Vincrement;
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
sub setVbotNtop_multiply {
my ($self) = @_;
if ( looks_like_number( $immodpg->{_VbotNtop_factor_current} )
&& length( $immodpg->{_VbotEntry}->get() )
&& length( $immodpg->{_VtopEntry}->get() ) )
{
my $factor = $immodpg->{_VbotNtop_factorEntry}->get();
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
my $Vbot = ( $immodpg->{_VbotEntry} )->get();
my $Vtop = ( $immodpg->{_VtopEntry} )->get();
my $Vincrement = $immodpg->{_VincrementEntry}->get();
if ( looks_like_number($Vbot)
&& looks_like_number($Vtop)
&& looks_like_number($Vincrement) )
{
my $newVbot = $Vbot - $Vincrement;
_set_control( 'Vbot', $newVbot );
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
my $Vbot = ( $immodpg->{_VbotEntry} )->get();
my $Vtop = ( $immodpg->{_VtopEntry} )->get();
my $Vincrement = $immodpg->{_VincrementEntry}->get();
if ( looks_like_number($Vbot)
&& looks_like_number($Vtop)
&& looks_like_number($Vincrement) )
{
my $newVbot = $Vbot + $Vincrement;
_set_control( 'Vbot', $newVbot );
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
my ($self) = @_;
# print("immodpg, set_layer, $immodpg->{_layerEntry}\n");
if ( length( $immodpg->{_layerEntry} )
&& looks_like_number( $immodpg->{_layer_current} )
&& length $immodpg->{_VbotEntry}
&& length $immodpg->{_VtopEntry}
&& length $immodpg->{_Vbot_upper_layerEntry}
&& length $immodpg->{_Vtop_lower_layerEntry}
&& length( $immodpg->{_thickness_mEntry} )
&& looks_like_number( $immodpg->{_thickness_m_current} ) )
{
_check_layer();
_update_layer_in_gui();
_update_upper_layer_in_gui();
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
sub set_thickness_m_minus {
my ($self) = @_;
if ( length( $immodpg->{_thickness_mEntry} )
&& looks_like_number( $immodpg->{_thickness_increment_m} ) )
{
my $thickness_m = ( $immodpg->{_thickness_mEntry} )->get();
if ( looks_like_number($thickness_m) ) {
my $thickness_increment_m =
( $immodpg->{_thickness_increment_mEntry} )->get();
my $new_thickness_m = $thickness_m - $thickness_increment_m;
_set_control( 'thickness_m', $new_thickness_m );
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
sub set_thickness_m_plus {
my ($self) = @_;
if ( length( $immodpg->{_thickness_mEntry} )
&& looks_like_number( $immodpg->{_thickness_increment_m} ) )
{
my $thickness_m = ( $immodpg->{_thickness_mEntry} )->get();
if ( looks_like_number($thickness_m) ) {
my $thickness_increment_m =
( $immodpg->{_thickness_increment_mEntry} )->get();
my $new_thickness_m = $thickness_m + $thickness_increment_m;
_set_control( 'thickness_m', $new_thickness_m );
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
sub set_option {
my ( $self, $option ) = @_;
if ( looks_like_number($option)
&& $immodpg->{_option_file} ne $empty_string )
{
=head2 instantiate classes
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
sub set_thickness_m {
my ($self) = @_;
if ( looks_like_number( $immodpg->{_thickness_m_current} ) ) {
_set_control( 'thickness_m', $immodpg->{_thickness_m_current} );
$immodpg->{_thickness_m_current} = _get_control('thickness_m');
_check_thickness_m();
view release on metacpan or search on metacpan
lib/App/ShellCompleter/cpanm.pm view on Meta::CPAN
filter => sub { log_trace(" $_"); /\.(zip|tar\.gz|tar\.bz2)$/i || (-d $_) },
word => $word,
);
}
# if that fails, and the word looks like the start of module name, try
# searching for CPAN module. currently we only query local CPAN for speed.
# if user already types something that looks like a path instead of module
# name, like '../' or perhaps 'C:\' (windows) then don't bother to complete
# with module name because it will just delay things without getting any
# result.
{
last unless $word eq '' || $word =~ /\A(\w+)(::\w+)*(::)?\z/;
view release on metacpan or search on metacpan
devdata/perlbrew-help.0.74 view on Meta::CPAN
For example, run a Hello program:
perlbrew exec perl -e 'print "Hello from $]\n"'
The output looks like this:
perl-5.12.2
==========
Hello word from perl-5.012002
view release on metacpan or search on metacpan
local/lib/perl5/Data/Dump/Trace.pm view on Meta::CPAN
If the return value prototype has C<!> appended, then it signals that
this function sets errno ($!) when it returns a false value. The
trace will display the current value of errno in that case.
If the return value prototype looks like a variable name (with C<$>
prefix), and the function returns a blessed object, then the variable
name will be used as prefix and the returned object automatically
traced.
=head1 SEE ALSO
view release on metacpan or search on metacpan
lib/App/SimpleHTTPServer.pm view on Meta::CPAN
$App::SimpleHTTPServer::VERSION = '0.002';
# ABSTRACT: Serve up a directory via http simply and easily
BEGIN { @ARGV = qw/ -m production /; }
use Mojolicious::Lite;
use Scalar::Util qw/ looks_like_number /;
our $TESTING = 0;
sub import {
my $package = shift;
my $port = shift;
if (not looks_like_number $port) {
unshift @_, $port if defined $port;
$port = 8000;
}
my $path = shift;
$path = '.' unless defined $path;
view release on metacpan or search on metacpan
lib/App/SimpleScan/Plugin/Forget.pm view on Meta::CPAN
# 'foo' is now undefined, and '<foo>' will not be replaced
=head1 DESCRIPTION
C<App::SimpleScan::Plugin::Forget> looks through the currently-defined
variables and removes any variables specified as its arguments. If you
try to forget variables that are currently undefined, nothing happens.
=head1 INTERFACE
view release on metacpan or search on metacpan
lib/App/SimpleScan/Plugin/LinkCheck.pm view on Meta::CPAN
use warnings;
use strict;
use Carp;
use Scalar::Util qw(looks_like_number);
use Text::Balanced qw(extract_quotelike extract_multiple);
sub import {
no strict 'refs';
*{caller() . '::_do_has_link'} = \&_do_has_link;
lib/App/SimpleScan/Plugin/LinkCheck.pm view on Meta::CPAN
if (!defined($count)) {
push @code, qq(fail "Missing count";\n);
$test_count++;
$not_bogus = 0;
}
elsif (! looks_like_number($count) ) {
push @code, qq(fail "$count doesn't look like a legal number to me";\n);
$test_count++;
$not_bogus = 0;
}
lib/App/SimpleScan/Plugin/LinkCheck.pm view on Meta::CPAN
You supplied a comparison operator that wasn't one we expected.
=item C<< %s doesn't look like a legal number to me >>
The item you supplied as a count of the number of times you expect to
see the link was not something that looks like a number to Perl.
=back
=head1 CONFIGURATION AND ENVIRONMENT
view release on metacpan or search on metacpan
lib/App/SimpleScan/Plugin/Retry.pm view on Meta::CPAN
our $VERSION = '1.02';
use warnings;
use strict;
use Carp;
use Scalar::Util qw(looks_like_number);
my ($retry);
sub import {
no strict 'refs';
lib/App/SimpleScan/Plugin/Retry.pm view on Meta::CPAN
);
}
sub retry_pragma {
my ($self, $args) = @_;
if (looks_like_number($args)) {
$args = int $args;
$self->stack_code(qq(mech->retry("$args");\n));
}
else {
$self->stack_test(qq(fail "retry count '$args' is not a number";\n));
view release on metacpan or search on metacpan
lib/App/SimpleScan/Substitution.pm view on Meta::CPAN
# Localize the slot that contains the dictionary and replace it
# with our newly-constructed, possibly-pruned one.
local($self->{dictionary}) = \%dictionary;
# Find the most-deeply-nested substitutions; we need to do those first;
# prune out anything that looks like a variable, but isn't (because
# there's no value for it in the dictionary).
my @var_names = grep { defined $self->dictionary->{$_} }
$self->_deepest_substitution("$line_obj");
# We have none.
view release on metacpan or search on metacpan
lib/App/SimulateReads/DB/Handle/Expression.pm view on Meta::CPAN
use App::SimulateReads::Base 'class';
use App::SimulateReads::DB;
use IO::Compress::Gzip 'gzip';
use IO::Uncompress::Gunzip 'gunzip';
use Storable qw/nfreeze thaw/;
use Scalar::Util 'looks_like_number';
with 'App::SimulateReads::Role::IO';
our $VERSION = '0.16'; # VERSION
lib/App/SimulateReads/DB/Handle/Expression.pm view on Meta::CPAN
die "Error parsing expression-matrix '$file': Seqid (first column) not found at line $line\n"
unless defined $fields[0];
die "Error parsing expression-matrix '$file': Count (second column) not found at line $line\n"
unless defined $fields[1];
die "Error parsing expression-matrix '$file': Count (second column) does not look like a number at line $line\n"
if not looks_like_number($fields[1]);
# Only throws a warning, because it is common zero values in expression matrix
if ($fields[1] <= 0) {
log_msg ":: Parsing expression-matrix '$file': Ignoring seqid '$fields[0]': Count (second column) lesser or equal to zero at line $line\n";
next;
view release on metacpan or search on metacpan
lib/App/Slackeria/Output.pm view on Meta::CPAN
App::Slackeria::Output - XHTML output for App::Slackeria
=head1 SYNOPSIS
# $project looks like this:
# {
# perl => {
# Debian => { ok => 1, data => '5.12.3-7' },
# Freshmeat => { ok => 1, data => '5.14.0' },
# },
view release on metacpan or search on metacpan
bin/slaughter view on Meta::CPAN
die "$0 already running - Lock file $lockfile is locked";
#
# The file will be closed when slaughter terminates so although it
# looks like we're leaking a handle here this is intentional.
#
}
=begin doc
view release on metacpan or search on metacpan
lib/App/SlideServer.pm view on Meta::CPAN
use v5.36;
use Mojo::Base 'Mojolicious';
use Mojo::WebSocket 'WS_PING';
use Mojo::File 'path';
use Mojo::DOM;
use Scalar::Util 'looks_like_number';
use File::stat;
use Text::Markdown::Hoedown;
use Carp;
our $VERSION = '0.002'; #VERSION
view release on metacpan or search on metacpan
lib/App/Smbxfer.pm view on Meta::CPAN
=head1 PROGRAM: CONFIGURATION AND ENVIRONMENT
The credentials file that can be used via the '--cred' option should be in the
same format used by smbclient. This file looks as follows:
username = <username>
password = <password>
domain = <domain>
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
# I'm still wondering if we should slurp Makefile.PL to
# get some context or not ...
my ($package, $file, $line) = caller;
die <<"EOT";
view release on metacpan or search on metacpan
which is useful for you as an author of an app. You can use it to
create completion and pod from a spec file.
### Example
For a first overview, here is how an app looks like:
```perl
use strict;
use warnings;
use 5.010;
view release on metacpan or search on metacpan
lib/App/Sqitch.pm view on Meta::CPAN
my (@tried, $prev);
for (my $i = 0; $i <= $#$args; $i++) {
my $arg = $args->[$i] or next;
if ($arg =~ /^-/) {
last if $arg eq '--';
# Skip the next argument if this looks like a pre-0.9999 option.
# There shouldn't be many since we now recommend putting options
# after the command. XXX Remove at some future date.
$i++ if $arg =~ /^(?:-[duhp])|(?:--(?:db-\w+|client|engine|extension|plan-file|registry|top-dir))$/;
next;
}
lib/App/Sqitch.pm view on Meta::CPAN
The name of the Sqitch registry in the target database.
=back
If the C<$target> argument looks like a database URI, it will simply returned
in the hash reference. If the C<$target> argument corresponds to a target
configuration key, the target configuration will be returned, with the C<uri>
value a upgraded to a L<URI> object. Otherwise returns C<undef>.
=head3 C<shell>