view release on metacpan or search on metacpan
Genetics/API/DB/Update.pm view on Meta::CPAN
Comments : Cluster.clusterType cannot be modified, so this method does
not touch the Cluster table.
=cut
sub updateCluster {
my($self, $cluster) = @_ ;
my($id, $actualType, $sth, $listPtr, $objRef) ;
my $dbh = $self->{dbh} ;
$DEBUG and carp " ->[updateCluster] $cluster." ;
Genetics/API/DB/Update.pm view on Meta::CPAN
relationships Kindred->Subjects and Subject->Kindred are kept in
synch.
=cut
sub updateSubject {
my($self, $subject) = @_ ;
my($id, $actualType, $sth, $sth1, $orgPtr, $orgID, $kindredRef,
$momRef, $dadRef, $sex, $date, $isProband) ;
my $dbh = $self->{dbh} ;
Genetics/API/DB/Update.pm view on Meta::CPAN
relationships Kindred->Subjects and Subject->Kindred are kept
in synch. This only applies to primary Kindreds, of course.
=cut
sub updateKindred {
my($self, $kindred) = @_ ;
my($id, $actualType, $sth, $kindredRef, $subjRef, $subjListPtr, @subjIDs) ;
my $dbh = $self->{dbh} ;
$DEBUG and carp " ->[updateKindred] $kindred." ;
Genetics/API/DB/Update.pm view on Meta::CPAN
Returns : 1 on success, undef otherwise.
Scope : Public
=cut
sub updateMarker {
my($self, $marker) = @_ ;
my($id, $actualType, $sth, $sth1, $chr, $orgPtr, $orgID, $seqPtr, $oldSeqID,
$newSeqID, $ploidy, $polyType, $idx, $seq, $alleleListPtr, $allelePtr,
$iscnListPtr, $iscnMapLocID, $iscnPtr, $iscnID) ;
my $dbh = $self->{dbh} ;
Genetics/API/DB/Update.pm view on Meta::CPAN
Returns : 1 on success, undef otherwise.
Scope : Public
=cut
sub updateSNP {
my($self, $snp) = @_ ;
my($id, $actualType, $sth, $sth1, $chr, $orgPtr, $orgID, $seqPtr, $oldSeqID,
$newSeqID, $ploidy, $type, $class, $idx, $conf, $method, $alleleListPtr,
$allelePtr, $iscnListPtr, $iscnMapLocID, $iscnPtr, $iscnID) ;
my $dbh = $self->{dbh} ;
Genetics/API/DB/Update.pm view on Meta::CPAN
Returns : 1 on success, undef otherwise.
Scope : Public
=cut
sub updateGenotype {
my($self, $gt) = @_ ;
my($id, $actualType, $sth, $active, $icResult, $date, $acListPtr,
$poID, $sthAC, $sthA, $sortOrder, $acPtr, $alleleID, $aaListPtr,
$alleleCallID) ;
my $dbh = $self->{dbh} ;
Genetics/API/DB/Update.pm view on Meta::CPAN
Scope : Public
Comments : StudyVariable.format cannot be modified.
=cut
sub updateStudyVariable {
my($self, $sv) = @_ ;
my($id, $format, $category, $actualType, $sth, $isX, $desc, $bound,
$codesListPtr, $codePtr, $arrRef, $sth1, $cdID, $oldAsdID, $asdPtr, $asdID, $aseListPtr,
$asePtr, $oldLcdID, $lcDefPtr, $lcdID, $lcListPtr, $lcPtr) ;
my $dbh = $self->{dbh} ;
Genetics/API/DB/Update.pm view on Meta::CPAN
Scope : Public
Comments :
=cut
sub updatePhenotype {
my($self, $pt) = @_ ;
my($id, $actualType, $sth, $active, $date, $svFormat, $valueFieldName, $aaListPtr) ;
my $dbh = $self->{dbh} ;
$DEBUG and carp " ->[updatePhenotype] $pt" ;
Genetics/API/DB/Update.pm view on Meta::CPAN
Returns : 1 on success, undef otherwise.
Scope : Public
=cut
sub updateFrequencySource {
my($self, $fs) = @_ ;
my($id, $actualType, $sth, $sthA, $sthOF, $sthFSOF, $listPtr, $arrRef,
$oafPtr, $allelePtr, $poID, $alleleID, $obsFreqID, $ohfPtr, $htID) ;
my $dbh = $self->{dbh} ;
Genetics/API/DB/Update.pm view on Meta::CPAN
Returns : 1 on success, undef otherwise.
Scope : Public
=cut
sub updateHtMarkerCollection {
my($self, $hmc) = @_ ;
my($id, $actualType, $sth, $units, $poListPtr, $sortOrder, $poPtr) ;
my $dbh = $self->{dbh} ;
$DEBUG and carp " ->[updateHtMarkerCollection] $hmc" ;
Genetics/API/DB/Update.pm view on Meta::CPAN
Returns : 1 on success, undef otherwise.
Scope : Public
=cut
sub updateHaplotype {
my($self, $ht) = @_ ;
my($id, $actualType, $sth, $sthA, $hmcPtr, $hmcID, $alleleListPtr,
$sortOrder, $allelePtr, $poID, $alleleID) ;
my $dbh = $self->{dbh} ;
Genetics/API/DB/Update.pm view on Meta::CPAN
Returns : 1 on success, undef otherwise.
Scope : Public
=cut
sub updateDNASample {
my($self, $sample) = @_ ;
my($id, $actualType, $sth, $date, $amt, $units, $conc, $subjPtr,
$gtListPtr, $gtPtr) ;
my $dbh = $self->{dbh} ;
Genetics/API/DB/Update.pm view on Meta::CPAN
Returns : 1 on success, undef otherwise.
Scope : Public
=cut
sub updateTissueSample {
my($self, $sample) = @_ ;
my($id, $actualType, $sth, $date, $tissue, $amt, $units, $subjPtr,
$dsListPtr, $dsPtr) ;
my $dbh = $self->{dbh} ;
Genetics/API/DB/Update.pm view on Meta::CPAN
Returns : 1 on success, undef otherwise.
Scope : Public
=cut
sub updateMap {
my($self, $map) = @_ ;
my($id, $actualType, $sth, $method, $units, $chr, $orgPtr, $orgID, $sortOrder,
$omeListPtr, $omePtr, $soPtr, $soID, $omeName) ;
my $dbh = $self->{dbh} ;
view release on metacpan or search on metacpan
t/sandbox/usr/portage/app-portage/gentoolkit/files/scripts/echangelog view on Meta::CPAN
\s*\n(?=\ \ \d|\*|\z) # suck up trailing whitespace
/$1\n\n*$version ($date)\n\n$entry\n\n/sx
or die "Failed to insert new entry (4)\n";
}
sub update_copyright {
my ($t) = @_;
my ($year) = strftime('%Y', localtime);
$t =~ s/^# Copyright \d+(?= )/$&-$year/m or
$t =~ s/^(# Copyright \d+)-(\d+)/$1-$year/m;
return $t;
view release on metacpan or search on metacpan
lib/Geo/IP/RU/IpGeoBase.pm view on Meta::CPAN
"INSERT INTO $table(". join( ', ', map $dbh->quote_identifier($_), @keys) .")"
." VALUES (". join( ', ', map $dbh->quote( $rec{$_} ), @keys ) .")";
return $dbh->do( $query ) || die "Couldn't execute '$query': ". $dbh->errstr;
}
sub update_record {
my $self = shift;
my %rec = @_;
my $table = $self->db_info->{'quoted_table'};
view release on metacpan or search on metacpan
lib/Geo/Postcodes/Update.pm view on Meta::CPAN
our $VERSION = '0.311';
#################################################################################
sub update
{
my $module_name = shift;
my $file_name = shift;
my $full_url = shift; # Can be 'undef'
my $procedure = shift;
view release on metacpan or search on metacpan
bin/demo.pl view on Meta::CPAN
);
$self->app->fill($screen_rect, $black);
}
sub update_gesture {
my $self = shift;
return unless $self->is_gesturing;
# add the current point to our list of points for this gesture
push @{ $self->{gesture} }, [@_];
view release on metacpan or search on metacpan
croak "Can't close file ".$self->{'filename'} .": $1" if $?;
$self->dprint( $self->{'filename'} ." closed");
return(0);
}
sub updaterc ($\%){
my $self = shift;
local *h_input = shift;
my ( $key, $value, $rc, %update_input);
$self->dprint("join to updaterc");
view release on metacpan or search on metacpan
lib/Getopt/Chain/v005/Context.pm view on Meta::CPAN
$processor->run->($self, @_);
$self->pop;
}
sub update {
my $self = shift;
my $link = $self->link;
my $local_options = $self->local_options_;
view release on metacpan or search on metacpan
GUI/withevap.ptk view on Meta::CPAN
-background => ($help->configure(-background))[3]],
);
} # end see_view
sub update_command {
# Create the command to execute.
# BEGIN application specific command line processing.
# END application specific command line processing.
GUI/withevap.ptk view on Meta::CPAN
return $genPerlTk_command;
} # end update_command
sub update_checkbutton_list {
# Toggle $val in $var.
my($var, $val) = @_;
view release on metacpan or search on metacpan
lib/Gideon/Driver.pm view on Meta::CPAN
my $order = delete $query{-order};
$driver->_find( $target, \%query, $order, 1 )->[0];
}
sub update {
my ( $driver, $target, %changes ) = @_;
my $is_object = ref $target;
Gideon::Exception::ObjectNotInStore->throw
view release on metacpan or search on metacpan
lib/Giovanni/Stages.pm view on Meta::CPAN
# the idea is to have different plugins that can extend the existing
# stages real easy. If this stages approach turns out to be too limited
# (ie 1000s of stages in one file, not a good look) we may need to
# rethink this approach.
sub update_cache {
my ($self, $ssh) = @_;
$self->log($ssh, "running update_cache task ...");
return;
}
view release on metacpan or search on metacpan
my @o_logs = $repo->run( log => '--pretty=oneline', 'origin/master');
is(@o_logs, 2, 'Second commit push successful');
}
# And on to testing the actual code...
sub update_foo {
my $str = shift;
open(my $foo, '>>', "$ld/foo");
if ($str) {
print $foo "$str\n";
}
view release on metacpan or search on metacpan
lib/Git/MoreHooks/CheckCommitBase.pm view on Meta::CPAN
my %opts = ( 'old_commit' => ':0', 'new_commit' => undef, 'gerrit-opts' => undef );
return _call_user_hook( $git, 'pre-commit', \%opts );
}
# This routine can act both as an update or a pre-receive hook.
sub update_callback {
$log->tracef( 'Entering update_callback(%s)', ( join q{:}, @_ ) );
my ($git) = @_;
my %opts = ( 'old_commit' => ':0', 'new_commit' => 0, 'gerrit-opts' => undef );
return _call_user_hook( $git, 'update', \%opts );
}
view release on metacpan or search on metacpan
lib/Git/PurePerl.pm view on Meta::CPAN
$ref = 'master' unless $ref;
$self->update_ref( $ref, $object->sha1 );
}
}
sub update_ref {
my ( $self, $refname, $sha1 ) = @_;
my $ref = file( $self->gitdir, 'refs', 'heads', $refname );
$ref->parent->mkpath;
my $ref_fh = $ref->openw;
$ref_fh->print($sha1) || die "Error writing to $ref";
view release on metacpan or search on metacpan
lib/Git/Release.pm view on Meta::CPAN
my %tracking = map { split ':', $_ , 2 } @lines;
return %tracking;
}
sub update_remote_refs {
my $self = shift;
$self->repo->command_oneline(qw(remote update --prune));
}
sub _new_branch {
view release on metacpan or search on metacpan
lib/Git/ReleaseRepo/Command/update.pm view on Meta::CPAN
: "Updating all outdated:\n"
. join "\n", map { sprintf "\t\%s", $_ } sort @$args;
$git->run( commit => ( @$args ), -m => $message );
};
sub update_submodule {
my ( $self, $module, $branch ) = @_;
$branch ||= "master";
my $git = $self->git;
if ( !$git->submodule->{ $module } ) {
die "Cannot add $module: Submodule does not exist\n";
view release on metacpan or search on metacpan
t/20-simple.t view on Meta::CPAN
my $home = cwd;
local $/ = chr rand 128;
# small helper sub
sub update_file {
my ( $file, $content ) = @_;
open my $fh, '>', $file or die "Can't open $file: $!";
print {$fh} $content;
close $fh;
}
view release on metacpan or search on metacpan
lib/Git/IndexInfo.pm view on Meta::CPAN
return ++$self->{nr};
}
undef;
}
sub update {
my ($self, $mode, $hash, $path) = @_;
if (print { $self->{gui} } $mode, ' ', $hash, "\t", $path, "\0") {
return ++$self->{nr};
}
undef;
view release on metacpan or search on metacpan
scripts/generate-rss.pl view on Meta::CPAN
$gh->issues_and_comments(
#Perl => 'perl5'
$since,
);
sub update_file( $fn, $content ) {
my $needs_update = ! -e $fn;
if( ! $needs_update ) {
open my $old, '<', $fn
or die "Couldn't read old content from '$fn': $!";
binmode $old, ':utf8';
view release on metacpan or search on metacpan
lib/GitLab/API/v3.pm view on Meta::CPAN
Sends a C<PUT> request to C</projects/:id/variables/:key> and returns the decoded/deserialized response body.
=cut
sub update_variable {
my $self = shift;
croak 'update_variable must be called with 2 to 3 arguments' if @_ < 2 or @_ > 3;
croak 'The #1 argument ($id) to update_variable must be a scalar' if ref($_[0]) or (!defined $_[0]);
croak 'The #2 argument ($key) to update_variable must be a scalar' if ref($_[1]) or (!defined $_[1]);
croak 'The last argument (\%params) to update_variable must be a hash ref' if defined($_[2]) and ref($_[2]) ne 'HASH';
lib/GitLab/API/v3.pm view on Meta::CPAN
Sends a C<PUT> request to C</runners/:id> and returns the decoded/deserialized response body.
=cut
sub update_runner {
my $self = shift;
croak 'update_runner must be called with 1 to 2 arguments' if @_ < 1 or @_ > 2;
croak 'The #1 argument ($id) to update_runner must be a scalar' if ref($_[0]) or (!defined $_[0]);
croak 'The last argument (\%params) to update_runner must be a hash ref' if defined($_[1]) and ref($_[1]) ne 'HASH';
my $params = (@_ == 2) ? pop() : undef;
lib/GitLab/API/v3.pm view on Meta::CPAN
Sends a C<PUT> request to C</application/settings> and returns the decoded/deserialized response body.
=cut
sub update_settings {
my $self = shift;
croak 'update_settings must be called with 0 to 1 arguments' if @_ < 0 or @_ > 1;
croak 'The last argument (\%params) to update_settings must be a hash ref' if defined($_[0]) and ref($_[0]) ne 'HASH';
my $params = (@_ == 1) ? pop() : undef;
my $path = sprintf('/application/settings', (map { uri_escape($_) } @_));
lib/GitLab/API/v3.pm view on Meta::CPAN
Sends a C<PUT> request to C</projects/:project_id/repository/tags/:tag_name/release>.
=cut
sub update_release {
my $self = shift;
croak 'update_release must be called with 2 to 3 arguments' if @_ < 2 or @_ > 3;
croak 'The #1 argument ($project_id) to update_release must be a scalar' if ref($_[0]) or (!defined $_[0]);
croak 'The #2 argument ($tag_name) to update_release must be a scalar' if ref($_[1]) or (!defined $_[1]);
croak 'The last argument (\%params) to update_release must be a hash ref' if defined($_[2]) and ref($_[2]) ne 'HASH';
view release on metacpan or search on metacpan
lib/GitLab/API/v4.pm view on Meta::CPAN
Sends a C<PUT> request to C<groups/:group_id/members/:user_id> and returns the decoded response content.
=cut
sub update_group_member {
my $self = shift;
croak 'update_group_member must be called with 2 to 3 arguments' if @_ < 2 or @_ > 3;
croak 'The #1 argument ($group_id) to update_group_member must be a scalar' if ref($_[0]) or (!defined $_[0]);
croak 'The #2 argument ($user_id) to update_group_member must be a scalar' if ref($_[1]) or (!defined $_[1]);
croak 'The last argument (\%params) to update_group_member must be a hash ref' if defined($_[2]) and ref($_[2]) ne 'HASH';
lib/GitLab/API/v4.pm view on Meta::CPAN
Sends a C<PUT> request to C<projects/:project_id/members/:user_id> and returns the decoded response content.
=cut
sub update_project_member {
my $self = shift;
croak 'update_project_member must be called with 2 to 3 arguments' if @_ < 2 or @_ > 3;
croak 'The #1 argument ($project_id) to update_project_member must be a scalar' if ref($_[0]) or (!defined $_[0]);
croak 'The #2 argument ($user_id) to update_project_member must be a scalar' if ref($_[1]) or (!defined $_[1]);
croak 'The last argument (\%params) to update_project_member must be a hash ref' if defined($_[2]) and ref($_[2]) ne 'HASH';
lib/GitLab/API/v4.pm view on Meta::CPAN
Sends a C<PUT> request to C<projects/:project_id/releases/:tag_name> and returns the decoded response content.
=cut
sub update_release {
my $self = shift;
croak 'update_release must be called with 2 to 3 arguments' if @_ < 2 or @_ > 3;
croak 'The #1 argument ($project_id) to update_release must be a scalar' if ref($_[0]) or (!defined $_[0]);
croak 'The #2 argument ($tag_name) to update_release must be a scalar' if ref($_[1]) or (!defined $_[1]);
croak 'The last argument (\%params) to update_release must be a hash ref' if defined($_[2]) and ref($_[2]) ne 'HASH';
lib/GitLab/API/v4.pm view on Meta::CPAN
Sends a C<PUT> request to C<projects/:project_id/releases/:tag_name/assets/links/:link_id> and returns the decoded response content.
=cut
sub update_release_link {
my $self = shift;
croak 'update_release_link must be called with 3 to 4 arguments' if @_ < 3 or @_ > 4;
croak 'The #1 argument ($project_id) to update_release_link must be a scalar' if ref($_[0]) or (!defined $_[0]);
croak 'The #2 argument ($tag_name) to update_release_link must be a scalar' if ref($_[1]) or (!defined $_[1]);
croak 'The #3 argument ($link_id) to update_release_link must be a scalar' if ref($_[2]) or (!defined $_[2]);
lib/GitLab/API/v4.pm view on Meta::CPAN
Sends a C<PUT> request to C<runners/:runner_id> and returns the decoded response content.
=cut
sub update_runner {
my $self = shift;
croak 'update_runner must be called with 1 to 2 arguments' if @_ < 1 or @_ > 2;
croak 'The #1 argument ($runner_id) to update_runner must be a scalar' if ref($_[0]) or (!defined $_[0]);
croak 'The last argument (\%params) to update_runner must be a hash ref' if defined($_[1]) and ref($_[1]) ne 'HASH';
my $params = (@_ == 2) ? pop() : undef;
lib/GitLab/API/v4.pm view on Meta::CPAN
Sends a C<PUT> request to C<application/settings> and returns the decoded response content.
=cut
sub update_settings {
my $self = shift;
croak 'update_settings must be called with 0 to 1 arguments' if @_ < 0 or @_ > 1;
croak 'The last argument (\%params) to update_settings must be a hash ref' if defined($_[0]) and ref($_[0]) ne 'HASH';
my $params = (@_ == 1) ? pop() : undef;
my $options = {};
lib/GitLab/API/v4.pm view on Meta::CPAN
Sends a C<PUT> request to C<projects/:project_id/repository/tags/:tag_name/release> and returns the decoded response content.
=cut
sub update_tag_release {
my $self = shift;
croak 'update_tag_release must be called with 2 to 3 arguments' if @_ < 2 or @_ > 3;
croak 'The #1 argument ($project_id) to update_tag_release must be a scalar' if ref($_[0]) or (!defined $_[0]);
croak 'The #2 argument ($tag_name) to update_tag_release must be a scalar' if ref($_[1]) or (!defined $_[1]);
croak 'The last argument (\%params) to update_tag_release must be a hash ref' if defined($_[2]) and ref($_[2]) ne 'HASH';
view release on metacpan or search on metacpan
lib/Github/Import.pm view on Meta::CPAN
[ push => @args ],
print_output => 1,
);
}
sub update_config_for_pull {
my $self = shift;
my $remote = $self->remote;
$self->run_git(
[ config => 'branch.master.remote', $remote ],
view release on metacpan or search on metacpan
bin/perli11ndoc view on Meta::CPAN
$self->{result_buffer} = $result_buffer;
$self->{result_view} = $result_view;
}
sub update_gir_view {
my ($self) = @_;
$self->{suppress_gir_view_selection_changes} = TRUE;
$self->{gir_model}->clear;
bin/perli11ndoc view on Meta::CPAN
my ($self, $path) = @_;
my $name = $self->{parser}->format_node_name_by_path ($path);
$self->{path_bar}->append ($name, $path); # indirectly calls update_results
}
sub update_results {
my ($self, $path) = @_;
$self->display_results ($self->{parser}->format_node_by_path ($path));
# Show and select the correponding tree entry.
$self->{gir_model}->foreach (sub {
bin/perli11ndoc view on Meta::CPAN
sub set_update_func {
my ($self, $func) = @_;
$self->{update_func} = $func;
}
sub update_buttons {
my ($self) = @_;
$self->{back_button}->set_sensitive ($self->{path_label}->can_go_back);
$self->{forward_button}->set_sensitive ($self->{path_label}->can_go_forward);
}
bin/perli11ndoc view on Meta::CPAN
sub set_update_func {
my ($self, $func) = @_;
$self->{update_func} = $func;
}
sub update {
my ($self) = @_;
$self->set_markup ($self->_format_children);
if (defined $self->{current_child} && defined $self->{update_func}) {
my $child = $self->{children}->[$self->{current_child}];
$self->{update_func}->($child->{name}, $child->{path});
view release on metacpan or search on metacpan
bin/perlmine.pl view on Meta::CPAN
set_timer_label();
$image_but->set_image(Gtk2::Image->new_from_file($image{'smile'}));
return FALSE;
}
sub update_label {
$elapse_time++;
set_timer_label();
return TRUE;
}
view release on metacpan or search on metacpan
examples/v201809/basic_operations/update_ad_group.pl view on Meta::CPAN
my $ad_group_id = "INSERT_AD_GROUP_ID_HERE";
# Set this to undef if you do not want to update the CPC bid.
my $cpc_bid_micro_amount = "INSERT_CPC_BID_MICRO_AMOUNT_HERE";
# Example main subroutine.
sub update_ad_group {
my ($client, $ad_group_id, $cpc_bid_micro_amount) = @_;
# Create an ad group with the specified ID.
# Pause the ad group.
my $ad_group = Google::Ads::AdWords::v201809::AdGroup->new({
id => $ad_group_id,
view release on metacpan or search on metacpan
examples/account_management/update_user_access.pl view on Meta::CPAN
my $customer_id = "INSERT_CUSTOMER_ID_HERE";
my $email_address = "INSERT_EMAIL_ADDRESS_HERE";
# See Google::Ads::GoogleAds::V22::Enums::AccessRoleEnum for optional values.
my $access_role = "INSERT_ACCESS_ROLE_HERE";
sub update_user_access {
my ($api_client, $customer_id, $email_address, $access_role) = @_;
my $user_id = get_user_access($api_client, $customer_id, $email_address);
if (defined $user_id) {
modify_user_access($api_client, $customer_id, $user_id, $access_role);
view release on metacpan or search on metacpan
lib/Google/Client/Files.pm view on Meta::CPAN
url => $url
);
return $json;
}
sub update_media {
my ($self, $id, $params, $content) = @_;
confess("No ID provided") unless ($id);
unless ( $content && %$content ) {
confess("No content provided to update");
}
lib/Google/Client/Files.pm view on Meta::CPAN
content => encode_json($content)
);
return $json;
}
sub update {
my ($self, $id, $params, $content) = @_;
confess("No ID provided") unless ($id);
unless ( $content && %$content ) {
confess("No content provided to update");
}
view release on metacpan or search on metacpan
samples/google.pm view on Meta::CPAN
}
return @out ;
}
sub update {
my $self = shift ;
$self = $self->db unless ref $self ;
my $token = shift or return warn 'requires token' ;
my @changes = $self->about( $token ) ;
view release on metacpan or search on metacpan
lib/Google/RestApi/SheetsApi4/Request/Spreadsheet/Worksheet.pm view on Meta::CPAN
properties => { gridProperties => { $frozen => $count }, },
fields => "gridProperties.$frozen",
);
}
sub update_worksheet_properties {
my $self = shift;
state $check = compile_named(
properties => HashRef,
fields => Str, { optional => 1 },
view release on metacpan or search on metacpan
lib/Graph/Chart.pm view on Meta::CPAN
$self->{ img } = $png_out;
return $self->{ img };
}
###########################################################################
sub update
{
my $self = shift;
my $object = shift;
# carp Dumper($self);
my $image_gd = GD::Image->new( $self->{img});
view release on metacpan or search on metacpan
t/04_dijkstra.t view on Meta::CPAN
is_deeply([$g->dijkstra("B", "X")], [], "returns empty list for unknown nodes pt. 1");
is_deeply([$g->dijkstra("X", "B")], [], "returns empty list for unknown nodes pt. 2");
# test usage of a different queue module - here: dummy module that returns nothing
# and will therefore cause failure to find a path
{ package NullQueue; sub insert { } sub update { } sub pop { undef; } sub delete { } }
$g->{_queue_maker} = sub { bless({}, "NullQueue"); };
is_deeply([$g->dijkstra("A", "B")], [], "can use different queue module");
# here: actual module, should return same result now.
SKIP: {