blob: 3f8d434ce61984ace821777ea4b677af0e5ec214 (
plain)
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
|
# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
#
# This Source Code Form is "Incompatible With Secondary Licenses", as
# defined by the Mozilla Public License, v. 2.0.
package Bugzilla::Extension::Push::Connector::ReviewBoard::Resource;
use 5.10.1;
use strict;
use warnings;
use URI;
use Carp qw(croak confess);
use Scalar::Util qw(blessed);
sub new {
my ($class, %params) = @_;
croak "->new() is a class method" if blessed($class);
return bless(\%params, $class);
}
sub client { $_[0]->{client} }
sub path { confess 'Unimplemented'; }
sub uri {
my ($self, @path) = @_;
my $uri = URI->new($self->client->base_uri);
$uri->path(join('/', $self->path, @path) . '/');
return $uri;
}
1;
|