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/Puppet/Environment/Updater.pm view on Meta::CPAN
necessary to use Git submodules, but it simplifies reuse of the Puppet modules in
other projects.
=back
The sandbox of the Git repository usually looks about as follows:
.
|-- modules
| |-- module1
| | |-- manifests
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
public/js/flot.js view on Meta::CPAN
return layer;
};
// Creates (if necessary) and returns a text info object.
//
// The object looks like this:
//
// {
// width: Width of the text's wrapper div.
// height: Height of the text's wrapper div.
// element: The jQuery-wrapped HTML div containing the text.
public/js/flot.js view on Meta::CPAN
}
function allocateAxisBoxFirstPhase(axis) {
// find the bounding box of the axis by looking at label
// widths/heights and ticks, make room by diminishing the
// plotOffset; this first phase only looks at one
// dimension per axis, the other dimension depends on the
// other axes so will have to wait
var lw = axis.labelWidth,
lh = axis.labelHeight,
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/Raps2/UI.pm view on Meta::CPAN
Returns a new App::Raps2::UI object.
=item $ui->list(I<\@item1>, I<\@item2>, I<\@item3>)
Print the list items neatly formatted to stdout. Each I<item> looks like B<[>
I<key>, I<value> B<]>. When B<list> is called for the first time, it will
print the keys as well as the values.
=item $ui->read_line(I<$question>, [I<$prefill>])
view release on metacpan or search on metacpan
lib/App/RecordStream.pm view on Meta::CPAN
cpanm --interactive App::RecordStream
Using L<cpanm> in interactive mode will prompt you for optional feature
support. Other CPAN clients such as L<cpan> and L<cpanp> also work fine, but
you can't opt to use any optional features (just like cpanm in non-interactive
mode). A kitchen-sink install of App::RecordStream looks like:
cpanm --with-recommends --with-all-features App::RecordStream
If you don't have L<cpanm> itself, you can install it easily with:
view release on metacpan or search on metacpan
lib/App/Regather/Plugin.pm view on Meta::CPAN
cf reference to Config class object
force force all actions done on start
log reference to Logg class object
obj reference to Net::LDAP object
out_file_old ... looks like it is not needed any more ...
prog program name and version
rdn RDN of a LDAP object event relates to
s service
st syncrepl state
ts_fmt timestamp format
view release on metacpan or search on metacpan
t/dat/lib/Nada.pm view on Meta::CPAN
=head1 DESCRIPTION
Stub documentation for Nada,
created by perlnow.el using template.el.
It looks like the author of the extension was negligent
enough to leave the stub unedited.
Blah blah blah.
=head2 EXPORT
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/Repository.pm view on Meta::CPAN
$context = App->context();
$repository = $context->service("Repository"); # or ...
$repository = $context->repository();
$rep = Repository::Base->new(); # looks for %ENV, then config file
$rep = Repository::Base->new("sysdb"); # looks for %ENV, then config file using "sysdb"
$rep2 = $rep->new(); # copies attributes of existing $rep
$rep = Repository::Base->new(@positional_args); # undefined for Repository::Base
$config = {
'repository' => {
'db' => {
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/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.