view release on metacpan or  search on metacpan

lib/Drupal/Admin/ModuleState.pm  view on Meta::CPAN

257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
my $url = $self->baseurl . '?q=admin/build/modules';
 
# Get and parse the status page
$self->mech->get($url);
 
my @result;
 
# Get all the groups (fieldsets)
my @group_trees = $self->mech->look_down("_tag", "fieldset");
foreach my $group_tree (@group_trees) {
  my $group = $group_tree->look_down("_tag", 'legend')->as_text
    || $self->_die("Failed to extract module group name");
 
  # Get all the checkboxes for that group
  my @chboxes = $group_tree->look_down("_tag", "input",
                                       "type", "checkbox");
 
  foreach my $chx (@chboxes) {
 
    my $name = $chx->attr_get_i('name');