From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

DAVECROSS / App-LinkSite-0.0.13 / lib / App / LinkSite / Link.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

              
=head1 NAME
App::LinkSite::Link
=head1 SYNOPSIS
(You probably want to just look at the L<linksite> application.)
=head1 DESCRIPTION
A class to model a link on a link site (part of App::LinkSite).
=cut
use Feature::Compat::Class;
class App::LinkSite::Link {
  our $VERSION = '0.0.13';
  use strict;
  use warnings;
  no if $] >= 5.038, 'warnings', 'experimental::class';
  field $title :reader :param;
  field $subtitle :reader :param = '';
  field $link :reader :param;
  field $new_link :reader(is_new) :param(new) = 0;
=head1 METHODS
=head2 mk_link
Returns a fragment of HTML that is used to display this link on the site.
It's actually an `<li>` that wraps an `<a>`. So this method probably needs
to be renamed or refactored. Maybe it should just be called `render()`.
=cut
  method mk_link {
    my $a_tag = q[<a href="] . $self->link . q[" class="text-decoration-none">] . $self->title . q[</a>];
    my $subtitle = $self->subtitle ? q[<br><small class="text-muted">] . $self->subtitle . q[</small>] : '';
    my @li_classes = qw[list-group-item list-group-item-action];
    push @li_classes, 'new-link' if $self->is_new;
    return qq[<li class='@li_classes'>$a_tag$subtitle</li>];
  }
}
=head1 AUTHOR
Dave Cross <dave@davecross.co.uk>
=head1 COPYRIGHT AND LICENCE
Copyright (c) 2024, Magnum Solutions Ltd. All Rights Reserved.
This library is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
=cut
1;