aboutsummaryrefslogtreecommitdiffstats
path: root/perllib/FixMyStreet.pm
blob: 25c4599d3e5e1873a43c6cbf2ee33bda74ff114b (plain)
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
package FixMyStreet;

use strict;
use warnings;

use Path::Class;

=head1 NAME

FixMyStreet

=head1 DESCRIPTION

FixMyStreet is a webite where you can report issues and have them routed to the
correct authority so that they can be fixed.

Thus module has utility functions for the FMS project.

=head1 METHODS

=head2 path_to

    $path = FixMyStreet->path_to( 'conf/general' );

Returns an absolute Path::Class object representing the path to the arguments in
the FixMyStreet directory.

=cut

my $ROOT_DIR = file(__FILE__)->parent->parent->absolute;

sub path_to {
    my $self = shift;
    return $ROOT_DIR->file(@_);
}



1;