File: HasRelationshipUpdateData.pm

package info (click to toggle)
libponapi-client-perl 0.002012-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 292 kB
  • sloc: perl: 941; makefile: 2
file content (73 lines) | stat: -rw-r--r-- 1,657 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
# ABSTRACT: request - role - has relationship-update-data
package PONAPI::Client::Request::Role::HasRelationshipUpdateData;

use Moose::Role;

with 'PONAPI::Client::Request::Role::HasData';
has data => (
    is       => 'ro',
    isa      => 'Maybe[HashRef|ArrayRef]',
    required => 1,
);

no Moose::Role; 1;

__END__

=pod

=encoding UTF-8

=head1 NAME

PONAPI::Client::Request::Role::HasRelationshipUpdateData - request - role - has relationship-update-data

=head1 VERSION

version 0.002012

=head1 DESCRIPTION

Similar to L<PONAPI::Client::Request::Role::HasData>, but for relationship updates.
Unlike the rest of the spec, relationship updates can take not just a hashref of data,
but also undef, or an arrayref.

    # Replaces the specified relationship(s) with a one-to-one relationship to foo.
    $client->update_relationships( ..., data => { type => "foo", id => 4 } );

    # Replaces the
    $client->update_relationships( ..., data => [ { type => "foo", id => 4 }, { ... } ] );

    # Clears the relationship
    $client->update_relationships( ..., data => undef );
    $client->update_relationships( ..., data => [] );

The underlaying repository decides whether the one-to-one or one-to-many difference is
significant.

=head1 AUTHORS

=over 4

=item *

Mickey Nasriachi <mickey@cpan.org>

=item *

Stevan Little <stevan@cpan.org>

=item *

Brian Fraser <hugmeir@cpan.org>

=back

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2019 by Mickey Nasriachi, Stevan Little, Brian Fraser.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut