File Coverage

blib/lib/App/LinkSite/Section.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             =head1 NAME
2              
3             App::LinkSite::Section
4              
5             =head1 SYNOPSIS
6              
7             (You probably want to just look at the L application.)
8              
9             =head1 DESCRIPTION
10              
11             A class to model a section of links on a link site (part of App::LinkSite).
12              
13             =cut
14              
15 2     2   399 use Feature::Compat::Class;
  2         3  
  2         10  
16              
17             class App::LinkSite::Section {
18             our $VERSION = '0.1.1';
19 2     2   294 use strict;
  2         3  
  2         35  
20 2     2   5 use warnings;
  2         30  
  2         104  
21 2     2   11 no if $] >= 5.038, 'warnings', 'experimental::class';
  2         2  
  2         355  
22              
23             field $title :reader :param;
24             field $links :reader :param = [];
25              
26             =head1 METHODS
27              
28             =head2 has_links
29              
30             Returns true if this section has any links.
31              
32             =cut
33              
34             method has_links {
35             return scalar @$links > 0;
36             }
37             }
38              
39             =head1 AUTHOR
40              
41             Dave Cross
42              
43             =head1 COPYRIGHT AND LICENCE
44              
45             Copyright (c) 2024, Magnum Solutions Ltd. All Rights Reserved.
46              
47             This library is free software; you can redistribute it and/or modify it
48             under the same terms as Perl itself.
49              
50             =cut
51              
52             1;