File Coverage

blib/lib/Articulate/Serialisation/SiteConfig.pm
Criterion Covered Total %
statement 9 13 69.2
branch n/a
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 13 18 72.2


line stmt bran cond sub pod time code
1             package Articulate::Serialisation::SiteConfig;
2 1     1   816 use strict;
  1         2  
  1         28  
3 1     1   4 use warnings;
  1         2  
  1         18  
4              
5 1     1   3 use Moo;
  1         1  
  1         4  
6             with 'Articulate::Role::Component';
7              
8             =head1 NAME
9              
10             PlainSpeaking::Serialisation::SiteConfig
11              
12             =head1 METHODS
13              
14             =head3 serialise
15              
16             Adds site data to the response data.
17              
18             =cut
19              
20             has site_data => (
21             is => 'rw',
22             default => sub { {} }
23             );
24              
25             sub serialise {
26 0     0 1   my $self = shift;
27 0           my $response = shift;
28 0           $response->data->{site} = $self->site_data;
29 0           return undef;
30             }
31              
32             1;