File Coverage

lib/Brownie/DSL.pm

Criterion	Covered	Total	%
statement	19	20	95.0
branch			n/a
condition			n/a
subroutine	6	7	85.7
pod	1	1	100.0
total	26	28	92.8

line	stmt	sub	pod	time	code
1					package Brownie::DSL;
2
3	2	2		89245	use strict;
	2			4
	2			73
4	2	2		9	use warnings;
	2			6
	2			51
5	2	2		10	use Sub::Install;
	2			3
	2			20
6	2	2		473	use Brownie;
	2			5
	2			597
7
8					our @DriverMethods = qw(
9					current_url
10					current_path
11					status_code
12					response_headers
13					title
14					source
15					screenshot
16					execute_script
17					evaluate_script
18					body
19					visit
20					current_node
21					document
22					find
23					first
24					all
25					click_link
26					click_button
27					click_link_or_button
28					fill_in
29					choose
30					check
31					uncheck
32					select
33					unselect
34					attach_file
35					);
36					our @SessionMethods = qw(
37					page
38					);
39					our @DslMethods = (@DriverMethods, @SessionMethods);
40
41	7	7	1	27457	sub page { Brownie->current_session }
42
43					sub import {
44	2	2		20	my $class = shift;
45	2			7	my $caller = caller;
46
47	2			5	for my $method (@DriverMethods) {
48					Sub::Install::install_sub({
49	0	0		0	code => sub { page->$method(@_) },
50	52			2305	into => $caller,
51					as => $method,
52					});
53					}
54	2			93	for my $method (@SessionMethods) {
55	2			11	Sub::Install::install_sub({
56					code => \&$method,
57					into => $caller,
58					as => $method,
59					});
60					}
61					}
62
63					1;
64
65					=head1 NAME
66
67					Brownie::DSL - provides DSL-Style interface to use browser session
68
69					=head1 SYNOPSIS
70
71					use Brownie::DSL;
72
73					# external server
74					Brownie->driver('Mechanize');
75					Brownie->app_host('http://app.example.com:5000');
76
77					# PSGI app
78					Brownie->driver('Mechanize');
79					Brownie->app(sub { ...(PSGI app)... });
80
81					# psgi file
82					Brownie->driver('Mechanize');
83					Brownie->app('app.psgi');
84
85					visit('/');
86					is title, 'Some Title';
87
88					fill_in('User Name' => 'brownie');
89					fill_in('Email Address' => 'brownie@example.com');
90					click_button('Login');
91					like source, qr/Welcome (.+)/;
92
93					fill_in(q => 'Brownie');
94					lick_link_or_button('Search');
95					like title, qr/Search result of Brownie/i;
96
97					done_testing;
98
99					=head1 CLASS METHODS
100
101					=over 4
102
103					=item * C: loadable driver name or config
104
105					=item * C: external target application
106
107					=item * C: PSGI application
108
109					=back
110
111					=head1 FUNCTIONS
112
113					=over 4
114
115					=item * C
116
117					Shortcut to accessing the current session.
118
119					=item * C
120
121					=item * C
122
123					=item * C
124
125					=item * C </td> </tr> <tr> <td class="h" > <a name="126">126</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="127">127</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item * C<source> </td> </tr> <tr> <td class="h" > <a name="128">128</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="129">129</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item * C<screenshot($filename)> </td> </tr> <tr> <td class="h" > <a name="130">130</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="131">131</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item * C<click_link($locator)> </td> </tr> <tr> <td class="h" > <a name="132">132</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="133">133</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item * C<click_button($locator)> </td> </tr> <tr> <td class="h" > <a name="134">134</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="135">135</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item * C<click_on($locator)> </td> </tr> <tr> <td class="h" > <a name="136">136</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="137">137</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item * C<fill_in($locator, $value)> </td> </tr> <tr> <td class="h" > <a name="138">138</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="139">139</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item * C<choose($locator)> </td> </tr> <tr> <td class="h" > <a name="140">140</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="141">141</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item * C<check($locator)> </td> </tr> <tr> <td class="h" > <a name="142">142</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="143">143</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item * C<uncheck($locator)> </td> </tr> <tr> <td class="h" > <a name="144">144</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="145">145</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item * C<select($locator)> </td> </tr> <tr> <td class="h" > <a name="146">146</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="147">147</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item * C<unselect($locator)> </td> </tr> <tr> <td class="h" > <a name="148">148</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="149">149</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item * C<attach_file($locator, $filename)> </td> </tr> <tr> <td class="h" > <a name="150">150</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="151">151</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item * C<execute_script($javascript)> </td> </tr> <tr> <td class="h" > <a name="152">152</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="153">153</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item * C<evaluate_script($javascript)> </td> </tr> <tr> <td class="h" > <a name="154">154</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="155">155</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item * C<find($locator)> </td> </tr> <tr> <td class="h" > <a name="156">156</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="157">157</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item * C<all($locator)> </td> </tr> <tr> <td class="h" > <a name="158">158</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="159">159</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =back </td> </tr> <tr> <td class="h" > <a name="160">160</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="161">161</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =head1 AUTHOR </td> </tr> <tr> <td class="h" > <a name="162">162</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="163">163</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> NAKAGAWA Masaki E<lt>masaki@cpan.orgE<gt> </td> </tr> <tr> <td class="h" > <a name="164">164</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="165">165</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =head1 LICENSE </td> </tr> <tr> <td class="h" > <a name="166">166</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="167">167</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> This library is free software; you can redistribute it and/or modify </td> </tr> <tr> <td class="h" > <a name="168">168</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> it under the same terms as Perl itself. </td> </tr> <tr> <td class="h" > <a name="169">169</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="170">170</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =head1 SEE ALSO </td> </tr> <tr> <td class="h" > <a name="171">171</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="172">172</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> L<Brownie::Session> </td> </tr> <tr> <td class="h" > <a name="173">173</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="174">174</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =cut </td> </tr> </table> </body> </html>