view release on metacpan or search on metacpan
lib/Google/Cloud/Bigquery/V2/Dataset.pm view on Meta::CPAN
=head1 CONFIGURATION AND ENVIRONMENT
=head2 target
The endpoint target address. Defaults to C<bigquery.googleapis.com:443>.
=head2 credentials
The authentication credentials provider. Defaults to application default credentials via L<Google::Auth>.
view release on metacpan or search on metacpan
lib/Google/Devtools/Cloudbuild/V1/Cloudbuild.pm view on Meta::CPAN
=head1 CONFIGURATION AND ENVIRONMENT
=head2 target
The endpoint target address. Defaults to C<devtools.googleapis.com:443>.
=head2 credentials
The authentication credentials provider. Defaults to application default credentials via L<Google::Auth>.
view release on metacpan or search on metacpan
lib/Google/Cloud/Orchestration/Airflow/Service/V1/Environments.pm view on Meta::CPAN
=cut
# === Message: Google::Cloud::Orchestration::Airflow::Service::V1::Environments::PrivateClusterConfig ===
# Fields for PrivateClusterConfig
# Field: enable_private_endpoint Type: 8 ()
# Field: master_ipv4_cidr_block Type: 9 ()
# Field: master_ipv4_reserved_range Type: 9 ()
=pod
lib/Google/Cloud/Orchestration/Airflow/Service/V1/Environments.pm view on Meta::CPAN
=head1 SYNOPSIS
use Google::Cloud::Orchestration::Airflow::Service::V1::Environments;
my $msg = Google::Cloud::Orchestration::Airflow::Service::V1::Environments::PrivateClusterConfig->new(
enable_private_endpoint => $value,
);
=head1 FIELDS
=over 4
=item * B<enable_private_endpoint>
Type: Bool
=item * B<master_ipv4_cidr_block>
lib/Google/Cloud/Orchestration/Airflow/Service/V1/Environments.pm view on Meta::CPAN
=head1 CONFIGURATION AND ENVIRONMENT
=head2 target
The endpoint target address. Defaults to C<orchestration.googleapis.com:443>.
=head2 credentials
The authentication credentials provider. Defaults to application default credentials via L<Google::Auth>.
view release on metacpan or search on metacpan
lib/Google/Cloud/Compute/V1/GlobalNetworkEndpointGroupsClient.pm view on Meta::CPAN
);
$self->transport($client);
}
}
sub attach_network_endpoints {
my ($self, %params) = @_;
my $request_class = 'Google::Cloud::Compute::V1::Compute::AttachNetworkEndpointsGlobalNetworkEndpointGroupRequest';
my $request = eval { $request_class->new(\%params) } || eval { $request_class->new(%params) } || ($request_class->can('encode') ? $request_class->encode(\%params) : \%params);
lib/Google/Cloud/Compute/V1/GlobalNetworkEndpointGroupsClient.pm view on Meta::CPAN
});
return $response;
}
sub detach_network_endpoints {
my ($self, %params) = @_;
my $request_class = 'Google::Cloud::Compute::V1::Compute::DetachNetworkEndpointsGlobalNetworkEndpointGroupRequest';
my $request = eval { $request_class->new(\%params) } || eval { $request_class->new(%params) } || ($request_class->can('encode') ? $request_class->encode(\%params) : \%params);
lib/Google/Cloud/Compute/V1/GlobalNetworkEndpointGroupsClient.pm view on Meta::CPAN
});
return $response;
}
sub list_network_endpoints {
my ($self, %params) = @_;
my $request_class = 'Google::Cloud::Compute::V1::Compute::ListNetworkEndpointsGlobalNetworkEndpointGroupsRequest';
my $request = eval { $request_class->new(\%params) } || eval { $request_class->new(%params) } || ($request_class->can('encode') ? $request_class->encode(\%params) : \%params);
lib/Google/Cloud/Compute/V1/GlobalNetworkEndpointGroupsClient.pm view on Meta::CPAN
The following RPC methods are available in this client:
=over 4
=item * B<attach_network_endpoints>
Calls the RPC method C<AttachNetworkEndpoints> on the service. Takes a hash of parameters representing the request.
=item * B<delete>
Calls the RPC method C<Delete> on the service. Takes a hash of parameters representing the request.
=item * B<detach_network_endpoints>
Calls the RPC method C<DetachNetworkEndpoints> on the service. Takes a hash of parameters representing the request.
=item * B<get>
lib/Google/Cloud/Compute/V1/GlobalNetworkEndpointGroupsClient.pm view on Meta::CPAN
=item * B<list>
Calls the RPC method C<List> on the service. Takes a hash of parameters representing the request.
=item * B<list_network_endpoints>
Calls the RPC method C<ListNetworkEndpoints> on the service. Takes a hash of parameters representing the request.
=back
view release on metacpan or search on metacpan
lib/Google/Dataflow/V1beta3/Jobs.pm view on Meta::CPAN
=head1 CONFIGURATION AND ENVIRONMENT
=head2 target
The endpoint target address. Defaults to C<dataflow.googleapis.com:443>.
=head2 credentials
The authentication credentials provider. Defaults to application default credentials via L<Google::Auth>.
view release on metacpan or search on metacpan
lib/Google/Cloud/Datafusion/V1/Datafusion.pm view on Meta::CPAN
# Field: options Type: 11 (.google.cloud.datafusion.v1.Instance.OptionsEntry)
# Field: create_time Type: 11 (.google.protobuf.Timestamp)
# Field: update_time Type: 11 (.google.protobuf.Timestamp)
# Field: state Type: 14 (.google.cloud.datafusion.v1.Instance.State)
# Field: state_message Type: 9 ()
# Field: service_endpoint Type: 9 ()
# Field: zone Type: 9 ()
# Field: version Type: 9 ()
# Field: service_account Type: 9 ()
# Field: display_name Type: 9 ()
# Field: available_version Type: 11 (.google.cloud.datafusion.v1.Version)
# Field: api_endpoint Type: 9 ()
# Field: gcs_bucket Type: 9 ()
# Field: accelerators Type: 11 (.google.cloud.datafusion.v1.Accelerator)
# Field: p4_service_account Type: 9 ()
# Field: tenant_project_id Type: 9 ()
# Field: dataproc_service_account Type: 9 ()
lib/Google/Cloud/Datafusion/V1/Datafusion.pm view on Meta::CPAN
=item * B<state_message>
Type: String
=item * B<service_endpoint>
Type: String
=item * B<zone>
lib/Google/Cloud/Datafusion/V1/Datafusion.pm view on Meta::CPAN
=item * B<available_version>
Type: Message (.google.cloud.datafusion.v1.Version)
=item * B<api_endpoint>
Type: String
=item * B<gcs_bucket>
lib/Google/Cloud/Datafusion/V1/Datafusion.pm view on Meta::CPAN
=head1 CONFIGURATION AND ENVIRONMENT
=head2 target
The endpoint target address. Defaults to C<datafusion.googleapis.com:443>.
=head2 credentials
The authentication credentials provider. Defaults to application default credentials via L<Google::Auth>.
view release on metacpan or search on metacpan
lib/Google/Cloud/Dataplex/V1/Analyze.pm view on Meta::CPAN
# Field: description Type: 9 ()
# Field: state Type: 14 (.google.cloud.dataplex.v1.State)
# Field: infrastructure_spec Type: 11 (.google.cloud.dataplex.v1.Environment.InfrastructureSpec)
# Field: session_spec Type: 11 (.google.cloud.dataplex.v1.Environment.SessionSpec)
# Field: session_status Type: 11 (.google.cloud.dataplex.v1.Environment.SessionStatus)
# Field: endpoints Type: 11 (.google.cloud.dataplex.v1.Environment.Endpoints)
=pod
=head1 NAME
lib/Google/Cloud/Dataplex/V1/Analyze.pm view on Meta::CPAN
=item * B<session_status>
Type: Message (.google.cloud.dataplex.v1.Environment.SessionStatus)
=item * B<endpoints>
Type: Message (.google.cloud.dataplex.v1.Environment.Endpoints)
=back
view release on metacpan or search on metacpan
lib/Google/Cloud/Dataproc/V1/AutoscalingPolicies.pm view on Meta::CPAN
=head1 CONFIGURATION AND ENVIRONMENT
=head2 target
The endpoint target address. Defaults to C<dataproc.googleapis.com:443>.
=head2 credentials
The authentication credentials provider. Defaults to application default credentials via L<Google::Auth>.
view release on metacpan or search on metacpan
lib/Google/Iam/V1/IamPolicy.pm view on Meta::CPAN
=head1 CONFIGURATION AND ENVIRONMENT
=head2 target
The endpoint target address. Defaults to C<iam.googleapis.com:443>.
=head2 credentials
The authentication credentials provider. Defaults to application default credentials via L<Google::Auth>.
view release on metacpan or search on metacpan
lib/Google/Cloud/Kms/V1/Autokey.pm view on Meta::CPAN
=head1 CONFIGURATION AND ENVIRONMENT
=head2 target
The endpoint target address. Defaults to C<kms.googleapis.com:443>.
=head2 credentials
The authentication credentials provider. Defaults to application default credentials via L<Google::Auth>.
view release on metacpan or search on metacpan
lib/Google/Cloud/Metastore/V1/Metastore.pm view on Meta::CPAN
# Field: name Type: 9 ()
# Field: create_time Type: 11 (.google.protobuf.Timestamp)
# Field: update_time Type: 11 (.google.protobuf.Timestamp)
# Field: labels Type: 11 (.google.cloud.metastore.v1.Service.LabelsEntry)
# Field: network Type: 9 ()
# Field: endpoint_uri Type: 9 ()
# Field: port Type: 5 ()
# Field: state Type: 14 (.google.cloud.metastore.v1.Service.State)
# Field: state_message Type: 9 ()
# Field: artifact_gcs_uri Type: 9 ()
# Field: tier Type: 14 (.google.cloud.metastore.v1.Service.Tier)
lib/Google/Cloud/Metastore/V1/Metastore.pm view on Meta::CPAN
=item * B<network>
Type: String
=item * B<endpoint_uri>
Type: String
=item * B<port>
lib/Google/Cloud/Metastore/V1/Metastore.pm view on Meta::CPAN
# === Message: Google::Cloud::Metastore::V1::Metastore::HiveMetastoreConfig ===
# Fields for HiveMetastoreConfig
# Field: version Type: 9 ()
# Field: config_overrides Type: 11 (.google.cloud.metastore.v1.HiveMetastoreConfig.ConfigOverridesEntry)
# Field: kerberos_config Type: 11 (.google.cloud.metastore.v1.KerberosConfig)
# Field: endpoint_protocol Type: 14 (.google.cloud.metastore.v1.HiveMetastoreConfig.EndpointProtocol)
# Field: auxiliary_versions Type: 11 (.google.cloud.metastore.v1.HiveMetastoreConfig.AuxiliaryVersionsEntry)
=pod
=head1 NAME
lib/Google/Cloud/Metastore/V1/Metastore.pm view on Meta::CPAN
=item * B<kerberos_config>
Type: Message (.google.cloud.metastore.v1.KerberosConfig)
=item * B<endpoint_protocol>
Type: Enum (.google.cloud.metastore.v1.HiveMetastoreConfig.EndpointProtocol)
=item * B<auxiliary_versions>
lib/Google/Cloud/Metastore/V1/Metastore.pm view on Meta::CPAN
=head1 CONFIGURATION AND ENVIRONMENT
=head2 target
The endpoint target address. Defaults to C<metastore.googleapis.com:443>.
=head2 credentials
The authentication credentials provider. Defaults to application default credentials via L<Google::Auth>.
view release on metacpan or search on metacpan
lib/Google/Cloud/Networksecurity/V1/AddressGroup.pm view on Meta::CPAN
=head1 CONFIGURATION AND ENVIRONMENT
=head2 target
The endpoint target address. Defaults to C<networksecurity.googleapis.com:443>.
=head2 credentials
The authentication credentials provider. Defaults to application default credentials via L<Google::Auth>.
lib/Google/Cloud/Networksecurity/V1/AddressGroup.pm view on Meta::CPAN
=head1 CONFIGURATION AND ENVIRONMENT
=head2 target
The endpoint target address. Defaults to C<networksecurity.googleapis.com:443>.
=head2 credentials
The authentication credentials provider. Defaults to application default credentials via L<Google::Auth>.
view release on metacpan or search on metacpan
lib/Google/Cloud/Networkservices/V1/Dep.pm view on Meta::CPAN
=head1 CONFIGURATION AND ENVIRONMENT
=head2 target
The endpoint target address. Defaults to C<networkservices.googleapis.com:443>.
=head2 credentials
The authentication credentials provider. Defaults to application default credentials via L<Google::Auth>.
view release on metacpan or search on metacpan
lib/Google/Cloud/Security/Privateca/V1/Service.pm view on Meta::CPAN
=head1 CONFIGURATION AND ENVIRONMENT
=head2 target
The endpoint target address. Defaults to C<security.googleapis.com:443>.
=head2 credentials
The authentication credentials provider. Defaults to application default credentials via L<Google::Auth>.
view release on metacpan or search on metacpan
lib/Google/Pubsub/V1/Pubsub.pm view on Meta::CPAN
=cut
# === Message: Google::Pubsub::V1::Pubsub::AIInference ===
# Fields for AIInference
# Field: endpoint Type: 9 ()
# Field: unstructured_inference Type: 11 (.google.pubsub.v1.AIInference.UnstructuredInference)
# Field: service_account_email Type: 9 ()
=pod
lib/Google/Pubsub/V1/Pubsub.pm view on Meta::CPAN
=head1 SYNOPSIS
use Google::Pubsub::V1::Pubsub;
my $msg = Google::Pubsub::V1::Pubsub::AIInference->new(
endpoint => $value,
);
=head1 FIELDS
=over 4
=item * B<endpoint>
Type: String
=item * B<unstructured_inference>
lib/Google/Pubsub/V1/Pubsub.pm view on Meta::CPAN
=cut
# === Message: Google::Pubsub::V1::Pubsub::PushConfig ===
# Fields for PushConfig
# Field: push_endpoint Type: 9 ()
# Field: attributes Type: 11 (.google.pubsub.v1.PushConfig.AttributesEntry)
# Field: oidc_token Type: 11 (.google.pubsub.v1.PushConfig.OidcToken)
# Field: pubsub_wrapper Type: 11 (.google.pubsub.v1.PushConfig.PubsubWrapper)
# Field: no_wrapper Type: 11 (.google.pubsub.v1.PushConfig.NoWrapper)
lib/Google/Pubsub/V1/Pubsub.pm view on Meta::CPAN
=head1 SYNOPSIS
use Google::Pubsub::V1::Pubsub;
my $msg = Google::Pubsub::V1::Pubsub::PushConfig->new(
push_endpoint => $value,
);
=head1 FIELDS
=over 4
=item * B<push_endpoint>
Type: String
=item * B<attributes>
lib/Google/Pubsub/V1/Pubsub.pm view on Meta::CPAN
=head1 CONFIGURATION AND ENVIRONMENT
=head2 target
The endpoint target address. Defaults to C<pubsub.googleapis.com:443>.
=head2 credentials
The authentication credentials provider. Defaults to application default credentials via L<Google::Auth>.
lib/Google/Pubsub/V1/Pubsub.pm view on Meta::CPAN
=head1 CONFIGURATION AND ENVIRONMENT
=head2 target
The endpoint target address. Defaults to C<pubsub.googleapis.com:443>.
=head2 credentials
The authentication credentials provider. Defaults to application default credentials via L<Google::Auth>.
view release on metacpan or search on metacpan
lib/Google/Cloud/Secretmanager/V1/Service.pm view on Meta::CPAN
=head1 CONFIGURATION AND ENVIRONMENT
=head2 target
The endpoint target address. Defaults to C<secretmanager.googleapis.com:443>.
=head2 credentials
The authentication credentials provider. Defaults to application default credentials via L<Google::Auth>.
view release on metacpan or search on metacpan
lib/Google/Spanner/V1/Spanner.pm view on Meta::CPAN
=head1 CONFIGURATION AND ENVIRONMENT
=head2 target
The endpoint target address. Defaults to C<spanner.googleapis.com:443>.
=head2 credentials
The authentication credentials provider. Defaults to application default credentials via L<Google::Auth>.
view release on metacpan or search on metacpan
lib/Google/Cloud/Sql/V1/CloudSqlAvailableDatabaseVersions.pm view on Meta::CPAN
=head1 CONFIGURATION AND ENVIRONMENT
=head2 target
The endpoint target address. Defaults to C<sql.googleapis.com:443>.
=head2 credentials
The authentication credentials provider. Defaults to application default credentials via L<Google::Auth>.
view release on metacpan or search on metacpan
lib/Google/Storage/V2/Storage.pm view on Meta::CPAN
=head1 CONFIGURATION AND ENVIRONMENT
=head2 target
The endpoint target address. Defaults to C<storage.googleapis.com:443>.
=head2 credentials
The authentication credentials provider. Defaults to application default credentials via L<Google::Auth>.
view release on metacpan or search on metacpan
lib/Google/ContentAPI.pm view on Meta::CPAN
#
# Bill Gerrard <bill@gerrard.org>
#
# VERSION HISTORY
#
# + v1.03 12/10/2020 Allow custom endpoint, update docs for v2.1 API
# + v1.02 04/11/2018 Add accountstatuses, productstatuses methods. Add "custom" resource
# + v1.01 03/27/2018 Added config_json, merchant_id options and switched to Crypt::JWT
# + v1.00 03/23/2018 initial release
#
# COPYRIGHT AND LICENSE
lib/Google/ContentAPI.pm view on Meta::CPAN
}
$self->{merchant_id} = $self->{config}->{merchant_id}
|| $params->{merchant_id}
|| croak "'merchant_id' not provided in json config in new()";
$self->{endpoint} = $self->{config}->{endpoint}
|| $params->{endpoint}
|| 'https://www.googleapis.com/content/v2';
$self->{debug} = 1 if $params->{debug};
$self->{google_auth_token} = get_google_auth_token($self);
$self->{rest} = init_rest_client($self);
lib/Google/ContentAPI.pm view on Meta::CPAN
}
sub init_rest_client {
my $self = shift;
my $r = REST::Client->new();
$r->setHost($self->{endpoint});
$r->addHeader('Authorization', $self->{google_auth_token});
$r->addHeader('Content-type', 'application/json');
$r->addHeader('charset', 'UTF-8');
return $r;
}
lib/Google/ContentAPI.pm view on Meta::CPAN
For convenience, add your Merchant account ID to the *.json file provided by Google.
Your complete *.json file, after adding your merchant ID, will look something like this:
{
"endpoint": "https://www.googleapis.com/content/v2.1",
"merchant_id": "123456789",
"type": "service_account",
"project_id": "content-api-194321",
"private_key_id": "11b8e20c2540c788e98b49e623ae8167dc3e4a6f",
"private_key": "-----BEGIN PRIVATE KEY-----
lib/Google/ContentAPI.pm view on Meta::CPAN
use Google::ContentAPI;
use Data::Dumper;
my $google = Google::ContentAPI->new({
endpoint => 'https://www.googleapis.com/content/v2.1',
debug => 0,
config_file => 'content-api-key.json',
config_json => $json_text,
merchant_id => '123456789',
});
lib/Google/ContentAPI.pm view on Meta::CPAN
=head2 new()
Create a new Google::ContentAPI object
=head3 endpoint
API endpoint to use.
v2.1 endpoint is 'https://www.googleapis.com/content/v2.1'.
v2.0 endpoint is 'https://www.googleapis.com/content/v2'.
If not provided, default to v2.0 endpoint for backwards compatibility.
=head3 debug
Displays API debug information
view release on metacpan or search on metacpan
lib/Google/DNS.pm view on Meta::CPAN
use JSON::PP qw/decode_json/;
use Class::Accessor::Lite (
rw => [qw/
cd
type
endpoint
ua
/],
);
our $VERSION = '0.02';
lib/Google/DNS.pm view on Meta::CPAN
my %args = @_;
bless {
cd => ($args{cd} || $args{dnssec}) ? 1 : 0,
type => $args{type} || '',
endpoint => $args{endpoint} || 'https://dns.google.com/resolve',
ua => $args{ua} || HTTP::Tiny->new,
}, $class;
}
sub resolve {
lib/Google/DNS.pm view on Meta::CPAN
if ($self->type) {
$query{type} = $self->type;
}
my $query_string = join('&', map { uri_escape($_).'='.uri_escape($query{$_}) } keys %query);
my $res = $self->ua->get($self->endpoint.'?'. $query_string);
croak "wrong response:$res->{status} $res->{reason}" unless $res->{success};
my $json = $res->{content};
return $json if $raw;
return decode_json($json);
}
view release on metacpan or search on metacpan
lib/Google/GeoCoder/Smart.pm view on Meta::CPAN
my $lng = $best_match->{geometry}{location}{lng};
=head1 DESCRIPTION
L<Google::GeoCoder::Smart|https://metacpan.org/pod/Google::GeoCoder::Smart> provides a lightweight wrapper around the Google Geocoding API
v3 endpoint:
https://maps.googleapis.com/maps/api/geocode/json
It supports both structured addresses and place IDs, and returns decoded API
payloads with C<rawJSON> attached for debugging.
view release on metacpan or search on metacpan
lib/Google/Plus.pm view on Meta::CPAN
=head2 C<ua>
my $ua = $plus->ua;
my $ua = $plus->ua(Mojo::UserAgent->new);
User agent object that retrieves JSON from the Google+ API endpoint.
Defaults to a L<Mojo::UserAgent> object. This object will use
HTTP/HTTPS proxies when available (via C<HTTP_PROXY> and C<HTTPS_PROXY>
environment variables.)
=head1 METHODS
view release on metacpan or search on metacpan
lib/Google/RestApi.pm view on Meta::CPAN
$self->{ua} = Furl->new(timeout => $self->{timeout});
return bless $self, $class;
}
# this is the actual call to the google api endpoint. handles retries, error checking etc.
# this would normally be called via Drive or Sheets objects.
sub api {
my $self = shift;
state $check = signature(
lib/Google/RestApi.pm view on Meta::CPAN
return $url if $url;
}
return;
}
# the maximum number of attempts to call the google api endpoint before giving up.
# undef returns current value. postitive int sets and returns new value.
# 0 sets and returns default value.
sub max_attempts {
my $self = shift;
state $check = signature(positional => [PositiveOrZeroInt->where(sub { $_ < 10; }), { optional => 1 }]);
lib/Google/RestApi.pm view on Meta::CPAN
API interacts with Google.
=head2 Chained API Calls
Every Google API module has an C<api()> method. Sub-resource objects
(see L<Google::RestApi::SubResource>) don't call the Google endpoint
directly; instead, each C<api()> prepends its own URI segment and
delegates to its parent's C<api()>. The calls chain upward until they
reach the top-level API module (e.g. DriveApi3), which prepends the
endpoint base URL and hands the fully-assembled URI to
C<Google::RestApi> for the actual HTTP request.
For example, deleting a reply on a comment on a file produces this chain:
$reply->api(method => 'delete')
lib/Google/RestApi.pm view on Meta::CPAN
The ultimate Google API call for the underlying classes. Handles timeouts and retries etc. %args consists of:
=over
=item * C<uri> <uri_string>: The Google API endpoint such as https://www.googleapis.com/drive/v3 along with any path segments added.
=item * C<method> <http_method_string>: The http method being used get|head|put|patch|post|delete.
=item * C<headers> <headers_string_array>: Array ref of http headers.
view release on metacpan or search on metacpan
t/06-channel-pool.t view on Meta::CPAN
);
ok($pool, 'instantiated ChannelPool');
is($pool->target, 'spanner.googleapis.com:443', 'pool target matches');
my $subs = $pool->subchannels;
ok(scalar(@$subs) > 0, 'resolved target to subchannel endpoints');
my $metrics = $pool->get_metrics();
ok($metrics, 'retrieved metrics hash');
my @ips = keys %$metrics;
ok(scalar(@ips) > 0, 'metrics contain entries for resolved IPs');
view release on metacpan or search on metacpan
lib/Gpx/Addons/Filter.pm view on Meta::CPAN
if ($start < 915148800 or $end < 915148800) {
carp("You are working on track-points dated before Jan 1, 1999 - strange. (Tip: this function accepts epoch-seconds only)")
}
# Comparing the timeframe with the segments start- and endpoint
if ( ($first_point < $start) and ($last_point < $start) ) {
##### Segment is completely outside of time-frame (before)
next SEGMENT;
} elsif (($first_point > $end) and ($last_point > $end)) {
##### Segment is completely outside of time-frame (after)
view release on metacpan or search on metacpan
lib/Grammar/Graph.pm view on Meta::CPAN
my ($self, $src, $dst) = @_;
$self->g->add_edge($dst, $_)
for $self->g->successors($src);
}
sub _find_endpoints {
my ($self, $id) = @_;
my $symbols = $self->symbol_table;
my $start = $symbols->{$id}{start_vertex};
my $final = $symbols->{$id}{final_vertex};
lib/Grammar/Graph.pm view on Meta::CPAN
partner => $v1, name => $name);
$self->set_vertex_label($v1, $p1);
$self->set_vertex_label($v2, $p2);
my ($start, $final) = $self->_find_endpoints($id);
$self->_copy_predecessors($v, $v1);
$self->_copy_successors($start, $v1);
$self->_copy_successors($v, $v2);
lib/Grammar/Graph.pm view on Meta::CPAN
fa_remove_useless_epsilons($self, $self->g->vertices);
_delete_unreachables($self);
my $id = _find_id_by_shortname($self, $shortname);
my ($start_vertex, $final_vertex) = _find_endpoints($self, $id);
$self->_set_start_vertex($start_vertex);
$self->_set_final_vertex($final_vertex);
$self->fa_prelude_postlude($shortname);
view release on metacpan or search on metacpan
lib/Graph/Dijkstra.pm view on Meta::CPAN
=head2 Version 0.4
o Added input/output methods for Pajek (NET) format files
o Lots of incompatible changes.
o Changed references to edge attribute labels to consistently use: sourceID, targetID, and weight.
o In the farthestNode and shortestPath methods, changed origin and destination to originID and destinationID as the starting and endpoint node ID values.
o Changed the node, edge, removeEdge, adjacent, and edgeExists methods to use hash references as parameters. Get version of node method returns hash reference.
> Thought is that using hash references as parameters will better support future addition of graph, node, and edge attributes.
o Changed the farthestNode and shortestPath methods to input the node ID value(s) in the solution hash reference parameter as "originID" and "destinationID".
o Changed the solution hash reference returned by the farthestNode, shortestPath methods to use sourceID, targetID, and weight as hash attributes replacing source, target, and cost
o Added two graph level attributes: label and creator. Attributes are input / output from / to files as supported by that format.
view release on metacpan or search on metacpan
lib/Graph/Easy/Layout/Scout.pm view on Meta::CPAN
EDGE_START_N() => EDGE_END_N(),
};
sub _end_points
{
# modify last field of path to be the correct endpoint; and the first field
# to be the correct startpoint:
my ($self, $edge, $coords, $dx, $dy) = @_;
return $coords if $edge->undirected();
lib/Graph/Easy/Layout/Scout.pm view on Meta::CPAN
EDGE_END_N,
EDGE_END_E,
EDGE_END_S,
];
# if the target/source node is of shape "edge", remove the endpoint
if ( ($edge->{to}->attribute('shape')) eq 'edge')
{
$end_flags = [ 0,0,0,0 ];
}
if ( ($edge->{from}->attribute('shape')) eq 'edge')
view release on metacpan or search on metacpan
lib/Graph/TransitiveClosure/Matrix.pm view on Meta::CPAN
}
$si[$iu]->[$iv] = $V[$iv] unless $iu == $iv;
}
}
}
# naming here is u = start, v = midpoint, w = endpoint
for (my $iv = $#V; $iv >= 0; $iv--) {
my $div = $di[$iv];
my $aiv = $ai[$iv];
for (my $iu = $#V; $iu >= 0; $iu--) {
my $aiu = $ai[$iu];