The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

HEYTRAV / WebService-Raygun-0.030 / lib / WebService / Raygun / Message / Request / QueryString.pm 

            

              
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
74
75
76
77

              
package WebService::Raygun::Message::Request::QueryString;
$WebService::Raygun::Message::Request::QueryString::VERSION = '0.030';
use Mouse;
=head1 NAME
WebService::Raygun::Message::Request::QueryString - Represent the I<QueryString> data in a raygun request.
=head1 SYNOPSIS
    use WebService::Raygun::Message::Request::QueryString;
    my $user = WebService::Raygun::Request::QueryString->new(
        params => { }
    );
=head1 DESCRIPTION
Encode a query string as a hash object.
=head1 INTERFACE
=cut
use Mouse::Util::TypeConstraints;
subtype 'RaygunQueryString' => as 'Object' => where {
    $_->isa('WebService::Raygun::Message::Request::QueryString');
};
coerce 'RaygunQueryString' => from 'Str' => via {
    my $params = {};
    my @pairs = split/&/, $_;
    foreach my $pair (@pairs) {
        my ($key, $value) = split/=/, $pair;
        $params->{$key} = $value;
    }
    return WebService::Raygun::Message::Request::QueryString->new(params => $params);
} =>  from 'HashRef' => via {
    return WebService::Raygun::Message::Request::QueryString->new(params => $_);
};
no Mouse::Util::TypeConstraints;
has params => (
    is      => 'rw',
    isa         => 'HashRef',
    default => sub {
        return {};
    },
);
=head2 prepare_raygun
Return the data structure that will be sent to raygun.io
=cut
sub prepare_raygun {
    my $self = shift;
    return $self->params;
}
=head1 DEPENDENCIES
=head1 SEE ALSO
=cut
__PACKAGE__->meta->make_immutable();
1;
__END__