view release on metacpan or  search on metacpan

test_eng/Testout.pm  view on Meta::CPAN

  print(@_), return unless $ENV{AUTOMATED_TESTING};
  warn("# in = `$in'\n", @_);
  print("not ok $n\n");
}

sub update_seen ($) {
  my $seen_now = CORE::shift;
  @seen{keys %$seen_now} = values %$seen_now;
#  my @VARS = map "\$$_", keys %$seen_now;
#  eval 'use vars @VARS; 1' or die "use vars: $@";
}

 view release on metacpan or  search on metacpan

lib/Math/SegmentedEnvelope.pm  view on Meta::CPAN

            }
        } else { $at }
    };
}

sub update_current_segment {
    my ($self, $i) = @_;
    $i = $self->_current_segment(defined($i) ? $i : ());
    $self->_level_diff($self->level($i+1) - $self->level($i));
    $self->_is_neg($self->curve($i) < 0 ? 1 : 0);
    $self->_is_asc($self->_level_diff < 0 || $self->_is_neg ? -1 : 1);

 view release on metacpan or  search on metacpan

lib/Maypole/Model/CDBI/FromCGI.pm  view on Meta::CPAN

returns 1 upon success. It can take the same arguments as create_form_cgi. 
If errors, it sets the cgi_update_errors.

=cut

sub update_from_cgi {
  my ($self, $r, $opts) = @_;
  $self->_croak( "update_from_cgi can only be called as an object method") unless ref $self;
  my ($errors, $validated);
  $self->{_cgi_update_error} = {};
  $opts->{updating} = 1;

 view release on metacpan or  search on metacpan

lib/Mcache.pm  view on Meta::CPAN

    else {
	return 0;
    }
}

sub update {
    my $self = shift;
    my @in = @_;
    my $key;
    if ($in[2]) {
        $key = "$in[2]";

 view release on metacpan or  search on metacpan

lib/MediaWiki/Bot.pm  view on Meta::CPAN

    my $revid = $data->{revisions}[0]->{revid};
    return $revid;
}


sub update_rc {
    warnings::warnif('deprecated', 'update_rc is deprecated, and may be removed '
        . 'in a future release. Please use recentchanges(), which provides more '
        . 'data, including rcid');
    my $self    = shift;
    my $limit   = shift || 'max';

 view release on metacpan or  search on metacpan

lib/MediaWiki/DumpFile/Compat/Pages.pod  view on Meta::CPAN

    $number =~ s/^,//;
  
    return $number;
  }
  
  sub update_ui {
    my $seconds = time - $start;
    my $bytes = $pages->current_byte;
  
    print STDERR "  ", pretty_number($artcount),  " articles; "; 
    print STDERR pretty_bytes($bytes), " processed; ";

 view release on metacpan or  search on metacpan

lib/Meerkat/Collection.pm  view on Meta::CPAN

        $obj->_set_removed(1);
        return; # false means removed
    }
}

sub update {
    state $check = compile( Object, Object, HashRef );
    my ( $self, $obj, $update ) = $check->(@_);
    my $data = $self->_try_mongo_op(
        update => sub {
            $self->_mongo_collection->find_one_and_update( { _id => $obj->_id },

 view release on metacpan or  search on metacpan

examples/events-to-ical.pl  view on Meta::CPAN

    } else {
        print "Would add event\n";
    };
}

sub update_event {
    my( $caldav, $href, $event ) = @_;
    if( ! $dryrun ) {
        my $data = meetup_to_icalendar( $event, self => $attendee );
        my $handle = $caldav->UpdateEvent( $href, $data);
    } else {

 view release on metacpan or  search on metacpan

Sprite.pm  view on Meta::CPAN

sub destroy
	{
	}

sub update_sprite
	{
		my ($self, $item) = @_;
		my $cg = $self->{sprite}->{$item};
		$cg->{cx} = $cg->{x} + $cg->{width}/2;
		$cg->{cy} = $cg->{y} + $cg->{height}/2;

 view release on metacpan or  search on metacpan

lib/Metabase/Fact.pm  view on Meta::CPAN

    $self->{metadata}{core}{creator} = $obj;
}

# update_time can always be modified

sub update_time { $_[0]->{metadata}{core}{update_time} }

sub touch {
    my ($self) = @_;
    $self->{metadata}{core}{update_time} = _zulu_datetime();
}

 view release on metacpan or  search on metacpan

lib/PeakForest/REST_Client/ApiClient.pm  view on Meta::CPAN

# update header and query param based on authentication setting
#
# @param array $headerParams header parameters (by ref)
# @param array $queryParams query parameters (by ref)
# @param array $authSettings array of authentication scheme (e.g ['api_key'])
sub update_params_for_auth {
    my ($self, $header_params, $query_params, $auth_settings) = @_;

    return $self->_global_auth_setup($header_params, $query_params)
        unless $auth_settings && @$auth_settings;

 view release on metacpan or  search on metacpan

lib/Metabrik/Antivirus/Clamav.pm  view on Meta::CPAN

         kali => [ qw(clamav) ],
      },
   };
}

sub update {
   my $self = shift;

   my $datadir = $self->datadir;

   my $cmd = "freshclam";

 view release on metacpan or  search on metacpan

lib/Metabrik/Core/Context.pm  view on Meta::CPAN

   }

   return \%available;
}

sub update_available {
   my $self = shift;

   my $h = $self->find_available;

   my $r = $self->call(sub {

 view release on metacpan or  search on metacpan

t/103-sample-db-binder.t  view on Meta::CPAN

    sub id       : PrimaryKey;
    sub title    : Col;
    sub body     : Col;
    sub created  : Col('created_on');
    sub updated  : Col('updated_on');
    sub status   : Col;

    sub approver : HasOne('Person');

    sub comments : HasMany('Comment', 'article');

 view release on metacpan or  search on metacpan

lib/Minions/Implementation.pm  view on Meta::CPAN

        sprintf('$%s%s', $prefix, $slot),
        \ $sym_val
    );
}

sub update_args {}

1;

__END__

 view release on metacpan or  search on metacpan

lib/Mirror/URI.pm  view on Meta::CPAN

#####################################################################
# High Level Methods

sub update {
	my $self = shift;

	# Handle various shortcuts
	unless ( $self->valid ) {
		Carp::croak("Cannot update invalid mirror");

 view release on metacpan or  search on metacpan

lib/Mobile/Wurfl.pm  view on Meta::CPAN

    print STDERR "commit dB ...\n";
    $self->{dbh}->commit;
    return 1;
}

sub update
{
    my $self = shift;
    print STDERR "get wurfl\n";
    my $got_wurfl = $self->get_wurfl();
    print STDERR "got wurfl: $got_wurfl\n";

 view release on metacpan or  search on metacpan

lib/Model/Envoy.pm  view on Meta::CPAN

    $self->_dispatch('save', @_ );

    return $self;
}

sub update {
    my ( $self, $hashref ) = @_;

    foreach my $attr ( grep { $_->get_write_method } $self->_get_all_attributes ) {

        my $name = $attr->name;

 view release on metacpan or  search on metacpan

lib/Module/DevAid.pm  view on Meta::CPAN

Called by do_release.  Overwrites the changes file and commits
the change. (uses get_changes_content)

=cut

sub update_changes_file {
    my $self = shift;
    my $old_version = shift;
    my $version = shift;

    my $changes_str = $self->get_changes_content($old_version, $version);

 view release on metacpan or  search on metacpan

lib/Module/Make.pm  view on Meta::CPAN

    # touch .stamps/new_environment

    # tell user to now edit the `config.yaml` file
}

sub update_environment {
    die "Can't update existing Module::Make environment yet";
}

sub sanity_check_new_cli_args {
    my $self = shift;

 view release on metacpan or  search on metacpan

lib/Module/Provision/TraitFor/AddingFiles.pm  view on Meta::CPAN

   my $self = shift; my $flags = $self->cmd_line_flags; $flags->{test} = TRUE;

   return $flags->{release} ? $self->release : $self->$_add_test_script;
}

sub update_file : method {
   my $self   = shift;
   my $target = $self->next_argv or throw Unspecified, [ 'target' ];
   my $index  = {};

   for my $t (map { my $k = $_->[ 0 ]; my $v = $_->[ 1 ];

 view release on metacpan or  search on metacpan

lib/Module/Refresh.pm  view on Meta::CPAN

Updates the cached "last modified" time for $file.

=cut

sub update_cache {
    my $self      = shift;
    my $module_pm = shift;

    # In case the module was not loaded successfully.
    return unless defined $INC{$module_pm};

 view release on metacpan or  search on metacpan

lib/Module/ScanDeps/FindRequires.pm  view on Meta::CPAN

  return 0;
}

########################################################################
sub update_requires {
########################################################################
  my ( $self, $requires ) = @_;

  my ( $fh, $tempfile ) = tempfile('requiresXXXXX');

 view release on metacpan or  search on metacpan

scripts/get_modules.pl  view on Meta::CPAN

my $dist_info = update_dist_ini();
create_module( $count, $dist_info );
update_changes( $dist_info->{version}, $new_versions );


sub update_dist_ini {
    my $dist_ini = curfile->dirname->child(qw/.. dist.ini/);
    my $content  = $dist_ini->slurp;

    $content =~ s{version\s*=\s*(?<major>\d+\.)\K(?<minor>\d+)}{sprintf "%02d", $1+1}xmse;
    my $version = $+{major} . sprintf( "%02d", $+{minor} + 1 );

 view release on metacpan or  search on metacpan

lib/MogileFS/Plugin/FileRefs.pm  view on Meta::CPAN

        map { "ref_".$i++ => $_ } @{ $result }
    });

}

sub update_schema {
    my $store = Mgd::get_store();
    my $dbh = $store->dbh();
    $dbh->do($store->filter_create_sql(TABLE_fileref()))
        or die "Failed to create table file_ref: ". $dbh->errstr;

 view release on metacpan or  search on metacpan

lib/MogileFS/FID.pm  view on Meta::CPAN

    $self->{$_} = $row->{$_} foreach qw(dmid dkey length classid devcount);
    $self->{_loaded} = 1;
    return 1;
}

sub update_devcount {
    my ($self, %opts) = @_;

    my $no_lock = delete $opts{no_lock};
    croak "Bogus options" if %opts;

 view release on metacpan or  search on metacpan

lib/Mojo/Command/Generate/InitScript/Freebsd.pm  view on Meta::CPAN

	# update /etc/rc.conf
	$self->update_rc_conf( $opt->{'name'} ) if $opt->{'deploy'};
}

sub update_rc_conf
{
	my ( $self, $name ) = @_;

	my $fh = IO::File->new();
	$fh->open('/etc/rc.conf', '+<') or die qq{Can't open /etc/rc.conf\n};

 view release on metacpan or  search on metacpan

lib/Mojo/Leds/Rest.pm  view on Meta::CPAN

    my $helper  = $c->dbHelper;
    my $f_table = $c->f_table;
    return $c->helpers->$helper->$f_table( $c->table );
}

sub update {
    my $c = shift;
    return $c->_raise_error( "Resource is read-only", 403 ) if $c->ro;
    my $json = $c->_json_from_body;
    return unless ($json);
    my $rec = $c->_update($json);