File Coverage

lib/Devel/PerlySense/Config/Project/Default.pm
Criterion Covered Total %
statement 32 32 100.0
branch 1 2 50.0
condition n/a
subroutine 9 9 100.0
pod 1 1 100.0
total 43 44 97.7


line stmt bran cond sub pod time code
1             =head1 NAME
2              
3             Devel::PerlySense::Config::Project::Default - A Project's default configuration
4              
5              
6             =head1 DESCRIPTION
7              
8             This is the default config for a project, used whenever a proper
9             .PerlySenseProject with a project.yml couldn't be identified.
10              
11             =cut
12              
13              
14              
15              
16              
17 63     63   395 use strict;
  63         85  
  63         2588  
18 63     63   288 use warnings;
  63         80  
  63         4591  
19 63     63   299 use utf8;
  63         99  
  63         489  
20              
21             package Devel::PerlySense::Config::Project::Default;
22 63     63   2460 use base "Devel::PerlySense::Config::Project";
  63         83  
  63         451  
23              
24              
25              
26              
27              
28 63     63   1543 use Data::Dumper;
  63         74  
  63         2693  
29 63     63   236 use Carp;
  63         80  
  63         2819  
30 63     63   246 use YAML::Tiny ();
  63         71  
  63         898  
31              
32 63     63   237 use Devel::PerlySense;
  63         81  
  63         454  
33              
34              
35              
36              
37              
38             =head1 METHODS
39              
40             =head2 new()
41              
42             Create new default Config object, with rhConfig set to the default.
43              
44             Return the new object, or die, e.g. if the yaml contains syntax
45             errors.
46              
47             =cut
48             sub new(@) {
49 63     63 1 131 my $pkg = shift;
50              
51 63         524 my $self = $pkg->SUPER::new(@_);
52              
53 63         2479 my $sourceConfig = $self->textConfigDefault;
54 63         866 my ($rhConfig) = eval { YAML::Tiny::Load($sourceConfig) };
  63         242  
55 63 50       154331 $rhConfig or die($YAML::Tiny::errstr);
56              
57 63         2425 $self->rhConfig($rhConfig);
58              
59 63         623 return $self;
60             }
61              
62              
63              
64              
65              
66             1;
67              
68              
69              
70              
71              
72             __END__
73              
74             =encoding utf8
75              
76             =head1 AUTHOR
77              
78             Johan Lindström, C<< <johanl[ÄT]DarSerMan.com> >>
79              
80             =head1 BUGS
81              
82             Please report any bugs or feature requests to
83             C<bug-devel-perlysense@rt.cpan.org>, or through the web interface at
84             L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Devel-PerlySense>.
85             I will be notified, and then you'll automatically be notified of progress on
86             your bug as I make changes.
87              
88             =head1 ACKNOWLEDGEMENTS
89              
90             =head1 COPYRIGHT & LICENSE
91              
92             Copyright 2005 Johan Lindström, All Rights Reserved.
93              
94             This program is free software; you can redistribute it and/or modify it
95             under the same terms as Perl itself.
96              
97             =cut