File Coverage

blib/lib/Data/Format/Pretty/Ruby.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition 1 2 50.0
subroutine 5 5 100.0
pod 1 1 100.0
total 22 23 95.6


line stmt bran cond sub pod time code
1             package Data::Format::Pretty::Ruby;
2              
3 1     1   725 use 5.010;
  1         4  
  1         45  
4 1     1   6 use strict;
  1         2  
  1         37  
5 1     1   7 use warnings;
  1         2  
  1         38  
6              
7 1     1   964 use Data::Dump::Ruby qw(dump_ruby);
  1         9169  
  1         257  
8              
9             require Exporter;
10             our @ISA = qw(Exporter);
11             our @EXPORT_OK = qw(format_pretty);
12              
13             our $VERSION = '0.01'; # VERSION
14              
15             sub format_pretty {
16 1     1 1 685 my ($data, $opts) = @_;
17 1   50     6 $opts //= {};
18 1         6 dump_ruby($data);
19             }
20              
21             1;
22             # ABSTRACT: Pretty-print data structure as Ruby code
23              
24              
25             =pod
26              
27             =head1 NAME
28              
29             Data::Format::Pretty::Ruby - Pretty-print data structure as Ruby code
30              
31             =head1 VERSION
32              
33             version 0.01
34              
35             =head1 SYNOPSIS
36              
37             use Data::Format::Pretty::Ruby qw(format_pretty);
38             print format_pretty($data);
39              
40             Some example output:
41              
42             =over 4
43              
44             =item * format_pretty({a=>1, b=>2})
45              
46             { "a" => 1, "b" => 2 }
47              
48             =head1 DESCRIPTION
49              
50             This module uses L to encode data as Ruby code.
51              
52             =head1 FUNCTIONS
53              
54             =head2 format_pretty($data, \%opts)
55              
56             Return formatted data structure. Currently there are no known formatting
57             options.
58              
59             =head1 SEE ALSO
60              
61             L
62              
63             =head1 AUTHOR
64              
65             Steven Haryanto
66              
67             =head1 COPYRIGHT AND LICENSE
68              
69             This software is copyright (c) 2011 by Steven Haryanto.
70              
71             This is free software; you can redistribute it and/or modify it under
72             the same terms as the Perl 5 programming language system itself.
73              
74             =cut
75              
76              
77             __END__