Import upstream version 0.9722
Debian Janitor
2 years ago
|
0 |
0.9722 2021-07-04
|
|
1 |
- fix neighbours et al not returning count in scalar context - thanks @merkys for report
|
|
2 |
|
| 0 | 3 |
0.9721 2021-04-18
|
| 1 | 4 |
- fix BitMatrix and AdjacencyMatrix problems - thanks @dod38fr for report
|
| 2 | 5 |
|
| 67 | 67 |
"web" : "https://github.com/graphviz-perl/Graph"
|
| 68 | 68 |
}
|
| 69 | 69 |
},
|
| 70 | |
"version" : "0.9721",
|
|
70 |
"version" : "0.9722",
|
| 71 | 71 |
"x_serialization_backend" : "JSON::PP version 4.04"
|
| 72 | 72 |
}
|
| 29 | 29 |
resources:
|
| 30 | 30 |
bugtracker: https://github.com/graphviz-perl/Graph/issues
|
| 31 | 31 |
repository: git://github.com/graphviz-perl/Graph.git
|
| 32 | |
version: '0.9721'
|
|
32 |
version: '0.9722'
|
| 33 | 33 |
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
|
| 13 | 13 |
|
| 14 | 14 |
use Graph::AdjacencyMap qw(:flags :fields);
|
| 15 | 15 |
|
| 16 | |
our $VERSION = '0.9721';
|
|
16 |
our $VERSION = '0.9722';
|
| 17 | 17 |
|
| 18 | 18 |
require 5.006; # Weak references are absolutely required.
|
| 19 | 19 |
|
|
| 548 | 548 |
$found->clear;
|
| 549 | 549 |
}
|
| 550 | 550 |
$got->remove($init->difference($self)->members) if $self_only_if_loop;
|
| 551 | |
$got->members;
|
|
551 |
$got->${ wantarray ? \'members' : \'size' };
|
| 552 | 552 |
}
|
| 553 | 553 |
|
| 554 | 554 |
sub all_successors {
|
|
| 585 | 585 |
require Set::Object;
|
| 586 | 586 |
my $s = Set::Object->new(&successors);
|
| 587 | 587 |
$s->insert(&predecessors) if &is_directed;
|
| 588 | |
$s->members;
|
|
588 |
$s->${ wantarray ? \'members' : \'size' };
|
| 589 | 589 |
}
|
| 590 | 590 |
*neighbors = \&neighbours;
|
| 591 | 591 |
|
| 77 | 77 |
for my $m (sort keys %methods) {
|
| 78 | 78 |
for my $t ( @{ $methods{$m} } ) {
|
| 79 | 79 |
my ($args, $expected0, $expected1) = @$t;
|
|
80 |
my $got0_count = scalar $g0->$m(@$args);
|
|
81 |
my $expected0_count = scalar split ' ', $expected0;
|
|
82 |
is $got0_count+0, $expected0_count, "right number for scalar context $m";
|
| 80 | 83 |
is( "@{[sort $g0->$m(@$args)]}", $expected0, "directed $m (@$args)" );
|
| 81 | 84 |
is( "@{[sort $g1->$m(@$args)]}", $expected1, "undirected $m (@$args)" );
|
| 82 | 85 |
}
|