File Coverage

blib/lib/Dancer2/Plugin/Cart/InlineViews.pm
Criterion Covered Total %
statement 73 83 87.9
branch 8 12 66.6
condition n/a
subroutine 7 7 100.0
pod n/a
total 88 102 86.2


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

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

Cart

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

Clear your cart.

";
46 3         4 $page .= " Continue shopping. \n";
47 3         6 $page .= "\n

Checkout.

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

Shipping

";
134 1         3 $page .= _cart_info({ ec_cart => $ec_cart });
135 1         3 $page .= "

Clear your cart.

";
136 1         2 $page .= "

Cart

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

".$error."

";
140             }
141             }
142             $page .= "
143            
144            

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

Billing

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

Clear your cart.

";
161 1         2 $page .= "

Shipping

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

".$error."

";
166             }
167             }
168             $page .= "
169            

Billing info
170            
171 1         5 Email
172            
173             ";
174              
175             };
176              
177             sub _review_view{
178 1     1   25 my ($params) = @_;
179 1         2 my $ec_cart = $params->{ec_cart};
180              
181 1         1 $page = "
182            

Review

";
183 1         4 $page .= _cart_info({ ec_cart => $ec_cart });
184 1         4 $page .= "\n

Clear your cart.

";
185             $page .="
186            
Shipping - email".$ec_cart->{shipping}->{form}->{email}."
187 1         7
Billing - email".$ec_cart->{billing}->{form}->{email}."
188            
189            

Edit Shipping
190            

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

Checkout has been successful!!
205 1         4

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

";
206 1         3 $page .= _cart_info({ ec_cart => $ec_cart });
207             $page .= "

Log Info
208            
209            
Session :".$ec_cart->{cart}->{session}."
210 1         6
Email".$ec_cart->{shipping}->{form}->{email}."
211            
212            

Go to products

";
213 1         2 $page;
214             };
215              
216             1;