File Coverage

blib/lib/Dancer2/Plugin/Cart/InlineViews.pm
Criterion Covered Total %
statement 75 85 88.2
branch 9 14 64.2
condition n/a
subroutine 7 7 100.0
pod n/a
total 91 106 85.8


line stmt bran cond sub pod time code
1             sub _products_view{
2 2     2   6 my ($params) = @_;
3 2         5 my $products = $params->{product_list};
4 2         5 my $page ="";
5 2         6 $page .= "
6            

Product list
7             "; ";
8            
9            
10             SkuPriceAction
11            
12            
13            
14 2         5 foreach my $product (@{$products}) {
  2         6  
15             $page .= "
16            
17             ".$product->{ec_sku}."
18             ".$product->{ec_price}."
19            
20            
21 4         26
22            
23            
24            
25            
26            
27             };
28 2         6 $page .= "
29            
30            
";
31 2         11 $page;
32             }
33              
34             sub _cart_view{
35 3     3   85 my ($params) = @_;
36 3         6 my $page = "";
37 3         7 my $ec_cart = $params->{ec_cart};
38 3 50       10 if ( $ec_cart->{add}->{error} ){
39 0         0 foreach my $error ( @{$ec_cart->{add}->{error}} ){
  0         0  
40 0         0 $page .= "

".$error."

";
41             }
42             }
43 3         7 $page .= "

Cart

\n";
44 3         12 $page .= _cart_info({ ec_cart => $ec_cart, editable => 1 });
45 3         10 $page .= "\n

Clear your cart.

";
46 3         7 $page .= " Continue shopping. \n";
47 3 50       4 if( @{$ec_cart->{cart}->{items}} > 0 ){
  3         11  
48 3         7 $page .= "\n

Checkout.

";
49             }
50 3         13 $page;
51             }
52              
53             sub _cart_info{
54 7     7   15 my ($params) = @_;
55 7         14 my $ec_cart = $params->{ec_cart};
56 7         13 my $editable = $params->{editable};
57              
58 7         11 my $page = "";
59 7 50       11 if (@{$ec_cart->{cart}->{items}} > 0 ) {
  7         17  
60 7         28 $page .= "
61             "; ";
62            
63            
64             SKUQuantityPrice
65            
66            
67            
68 7         12 foreach my $item (@{$ec_cart->{cart}->{items}}){
  7         19  
69             $page .= "
70            
71 12         25 ".$item->{ec_sku}."
72             ";
73 12 100       33 if( $editable == 1 ) {
74             $page .= "
75 4         10
76            
77            
78             "
79             }
80             $page .= "
81 12         30 ". $item->{ec_quantity} ."
82             ";
83 12 100       28 if( $editable == 1 ){
84             $page .= "
85 4         11
86            
87            
88             ";
89             }
90             $page .= "
91 12         38 ".$item->{ec_price}."
92            
93             }
94             $page .= "
95            
96            
97            
98 7         20 Subtotal".$ec_cart->{cart}->{subtotal}."
99            
100            
101            
";
102              
103              
104 7         18 $page .= ''; ";
105            
106            
107 7         12 foreach my $adjustment (@{$ec_cart->{cart}->{adjustments}}){
  7         13  
108 21         58 $page .= "
".$adjustment->{description}."".$adjustment->{value}."
109             }
110              
111             $page .= "
112            
113            
114            
115 7         23 Total".$ec_cart->{cart}->{total}."
116            
117            
118            
";
119              
120             }
121             else{
122 0         0 $page .= "Your cart is empty.";
123             }
124 7         30 $page;
125             }
126              
127              
128             sub _shipping_view{
129 1     1   33 my ($params) = @_;
130 1         3 my $ec_cart = $params->{ec_cart};
131              
132 1         2 my $page ="";
133              
134 1         3 $page .= "
135            

Shipping

";
136 1         13 $page .= _cart_info({ ec_cart => $ec_cart });
137 1         5 $page .= "

Clear your cart.

";
138 1         3 $page .= "

Cart

";
139 1 50       4 if ( $ec_cart->{shipping}->{error} ){
140 0         0 foreach my $error ( @{$ec_cart->{shipping}->{error}} ){
  0         0  
141 0         0 $page .= "

".$error."

";
142             }
143             }
144             $page .= "
145            
146            

Shipping info
147            
148 1         8 Email
149            
150             ";
151             }
152              
153             sub _billing_view{
154 1     1   30 my ($params) = @_;
155 1         3 my $ec_cart = $params->{ec_cart};
156              
157 1         2 my $page ="";
158              
159 1         3 $page .= "
160            

Billing

";
161 1         5 $page .= _cart_info({ ec_cart => $ec_cart });
162 1         3 $page .= "\n

Clear your cart.

";
163 1         4 $page .= "

Shipping

";
164              
165 1 50       4 if ( $ec_cart->{billing}->{error} ){
166 0         0 foreach my $error ( @{$ec_cart->{billing}->{error}} ){
  0         0  
167 0         0 $page .= "

".$error."

";
168             }
169             }
170             $page .= "
171            

Billing info
172            
173 1         7 Email
174            
175             ";
176              
177             };
178              
179             sub _review_view{
180 1     1   30 my ($params) = @_;
181 1         2 my $ec_cart = $params->{ec_cart};
182              
183 1         3 $page = "
184            

Review

";
185 1         3 $page .= _cart_info({ ec_cart => $ec_cart });
186 1         4 $page .= "\n

Clear your cart.

";
187             $page .="
188            
Shipping - email".$ec_cart->{shipping}->{form}->{email}."
189 1         8
Billing - email".$ec_cart->{billing}->{form}->{email}."
190            
191            

Edit Shipping
192            

Edit Billing
193            
194            
195             ";
196            
197             };
198              
199              
200             sub _receipt_view{
201 1     1   3 my ($params) = @_;
202 1         3 my $ec_cart = $params->{ec_cart};
203 1         2 my $page = "";
204              
205             $page .= "
206            

Checkout has been successful!!
207 1         4

Receipt #: ".$ec_cart->{cart}->{session}."

";
208 1         4 $page .= _cart_info({ ec_cart => $ec_cart });
209             $page .= "

Log Info
210            
211            
Session :".$ec_cart->{cart}->{session}."
212 1         7
Email".$ec_cart->{shipping}->{form}->{email}."
213            
214            

Go to products

";
215 1         4 $page;
216             };
217              
218             1;