Frey/ORM/Links.pm

package Frey::Web::Links;
use Moose;

=head1 NAME

Frey::Web::Links - simple links to current page with one param

=cut

has 'name' => (
        'is' => 'rw',
        isa => 'Str',
        required => 1,
);

has 'current' => (
        is => 'rw',
        isa => 'Str',
        required => 1,
);

has 'values' => (
        is => 'rw',
        isa => 'ArrayRef[Str]',
        required => 1,
);

has 'current_tag' => (
        is => 'rw',
        isa => 'Str',
        default => 'em',
);

has 'delimiter' => (
        is => 'rw',
        isa => 'Str',
        default => ' ',
);

has 'empty' => (
        is => 'rw',
        isa => 'Str',
        default => '[empty]',
);

sub links {
        my $self = shift;
        my @out =
                map {
                        if ( $_ eq '' ) {
                                $self->empty
                        } elsif ( $self->current eq $_ ) {
                                '<' . $self->current_tag . '>' . $_ . '</' . $self->current_tag . '>'
                        } else {
                                qq|<a href="?| . $self->name . qq|=$_">$_</a>|
                        }
                } ( @{ $self->values } );
        return @out if wantarray;
        return join($self->delimiter, @out);
}

1;
1	dpavlin	110	package Frey::Web::Links;
2			use Moose;
3
4	dpavlin	111	=head1 NAME
5
6			Frey::Web::Links - simple links to current page with one param
7
8			=cut
9
10	dpavlin	110	has 'name' => (
11			'is' => 'rw',
12			isa => 'Str',
13			required => 1,
14			);
15
16			has 'current' => (
17			is => 'rw',
18			isa => 'Str',
19			required => 1,
20			);
21
22			has 'values' => (
23			is => 'rw',
24			isa => 'ArrayRef[Str]',
25			required => 1,
26			);
27
28			has 'current_tag' => (
29			is => 'rw',
30			isa => 'Str',
31			default => 'em',
32			);
33
34			has 'delimiter' => (
35			is => 'rw',
36			isa => 'Str',
37			default => ' ',
38			);
39
40	dpavlin	207	has 'empty' => (
41			is => 'rw',
42			isa => 'Str',
43			default => '[empty]',
44			);
45
46	dpavlin	110	sub links {
47			my $self = shift;
48			my @out =
49			map {
50	dpavlin	207	if ( $_ eq '' ) {
51			$self->empty
52			} elsif ( $self->current eq $_ ) {
53	dpavlin	110	'<' . $self->current_tag . '>' . $_ . '</' . $self->current_tag . '>'
54			} else {
55			qq\|<a href="?\| . $self->name . qq\|=$_">$_</a>\|
56			}
57			} ( @{ $self->values } );
58			return @out if wantarray;
59			return join($self->delimiter, @out);
60			}
61
62			1;