File Coverage

blib/lib/Dash/Html/ComponentsAssets.pm
Criterion Covered Total %
statement 15 23 65.2
branch 0 4 0.0
condition n/a
subroutine 5 8 62.5
pod n/a
total 20 35 57.1


line stmt bran cond sub pod time code
1             package Dash::Html::ComponentsAssets;
2              
3 8     8   897 use strict;
  8         14  
  8         248  
4 8     8   41 use warnings;
  8         14  
  8         166  
5 8     8   2272 use JSON;
  8         38224  
  8         65  
6 8     8   3445 use File::ShareDir;
  8         90775  
  8         343  
7 8     8   2905 use Path::Tiny;
  8         40696  
  8         1440  
8              
9             my $_deps;
10              
11             sub _deps {
12 0     0     my $kind = shift;
13 0 0         if ( !defined $_deps ) {
14 0           $_deps = from_json(
15             Path::Tiny::path(
16             File::ShareDir::dist_file(
17             "Dash", Path::Tiny::path( "assets", "dash_html_components", "js_deps.json" )->canonpath
18             )
19             )->slurp_utf8
20             );
21             }
22 0 0         if ( defined $kind ) {
23 0           return $_deps->{$kind};
24             }
25 0           return $_deps;
26             }
27              
28             sub _js_dist {
29 0     0     return _deps("_js_dist");
30             }
31              
32             sub _css_dist {
33 0     0     return _deps("_css_dist");
34             }
35              
36             1;
37              
38             __END__