prefs results from the CPAN

0.8     2012-10-04 Brad Lhotsky <brad@divisionbyzero.net>
        - Added regex subscription option

0.7     2012-06-28 Brad Lhotsky <brad@divisionbyzero.net>
        - Fixed whitespace
        - Updated dzil prefs

view all matches for this distribution

POSIX-pselect

1 match

inc/Module/Install/Repository.pm view on Meta::CPAN

            if ($query_repo =~ m!Default Remote: (http://.+)!) {
                return $1;
            }
        }

        open my $handle, '<', '_darcs/prefs/repos' or return;
        while (<$handle>) {
            chomp;
            return $_ if m!^http://!;
        }
    } elsif (-e ".hg") {

view all matches for this distribution

PSGI

1 match

inc/Module/Install/Repository.pm view on Meta::CPAN

            if ($query_repo =~ m!Default Remote: (http://.+)!) {
                return $1;
            }
        }

        open my $handle, '<', '_darcs/prefs/repos' or return;
        while (<$handle>) {
            chomp;
            return $_ if m!^http://!;
        }
    } elsif (-e ".hg") {

view all matches for this distribution

Padre-Plugin-Moose

1 match

lib/Padre/Plugin/Moose/Assistant.pm view on Meta::CPAN

sub on_preferences_button_clicked {
	my $self = shift;

	# Create a new preferences dialog
	require Padre::Plugin::Moose::Preferences;
	my $prefs = Padre::Plugin::Moose::Preferences->new($self);

	# Update plugin variables from plugin's configuration hash
	my $plugin = $self->{plugin};
	my $config = $plugin->{config};
	$prefs->{generated_code_combo}->SetValue( $config->{type} );
	$prefs->{comments_checkbox}->SetValue( $config->{comments} );
	$prefs->{sample_code_checkbox}->SetValue( $config->{sample_code} );
	$prefs->{namespace_autoclean_checkbox}->SetValue( $config->{namespace_autoclean} );

	# Preferences: go modal!
	if ( $prefs->ShowModal == Wx::wxID_OK ) {

		# Update configuration when the user hits the OK button
		my $type = $prefs->{generated_code_combo}->GetValue;
		$config->{type}                = $type;
		$config->{comments}            = $prefs->{comments_checkbox}->IsChecked;
		$config->{sample_code}         = $prefs->{sample_code_checkbox}->IsChecked;
		$config->{namespace_autoclean} = $prefs->{namespace_autoclean_checkbox}->IsChecked;
		$plugin->config_write($config);

		# Update tree and preview editor
		$self->show_code_in_preview(1);

view all matches for this distribution

Padre-Plugin-Perl6

2 results

lib/Padre/Plugin/Perl6.pm view on Meta::CPAN


sub plugin_preferences {
	my $self = shift;

	require Padre::Plugin::Perl6::Preferences;
	my $prefs = Padre::Plugin::Perl6::Preferences->new($self);
	$prefs->Show;
}

sub show_about {
	my $self = shift;

view all matches for this distribution

Padre

2 results

lib/Padre/Wx/Dialog/Advanced.pm view on Meta::CPAN

# Private method to handle the pressing of the save button
sub _on_save_button {
	my $self    = shift;
	my $config  = $self->config;
	my $current = $self->current;
	my $prefs   = $self->{preferences};

	# Lock most of Padre so any apply handlers run quickly
	my $lock = $self->main->lock( 'UPDATE', 'REFRESH', 'DB' );

	# Find the values that have changed
	for my $name ( sort keys %$prefs ) {
		my $pref     = $prefs->{$name};
		my $type     = $pref->{type};
		my $value    = $pref->{value};
		my $original = $pref->{original};
		if ( $type == Padre::Constant::ASCII or $type == Padre::Constant::PATH ) {
			next if $value eq $original;

view all matches for this distribution

Palm-MaTirelire

1 match

    $MODES = Palm::MaTirelire::Modes->new;
    $TYPES = Palm::MaTirelire::Types->new;

    #
    # Preferences...
    my($prefs_v1, $prefs_v2, $add_v2);
    foreach my $res (@{$PREFS->{resources}})
    {
	if ($res->{type} eq 'MaTi')
	{
	    $prefs_v1 = $res->{data};
	    last if defined $prefs_v2;
	}

	if ($res->{type} eq 'MaT2')
	{
	    $prefs_v2 = $res->{data};
	    last if defined $prefs_v1;
	}
    }

    die "V1 preferences not found\n" unless defined $prefs_v1;

    # No M2 preferences found
    unless (defined $prefs_v2)
    {
	$prefs_v2 = {};
	$add_v2 = 1;
    }

    $prefs_v2->{last_db} = $ACCOUNTS_V2->{name};
    $prefs_v2->{first_form} = 2; # Transactions list screen

    # Convert preferences
    foreach my $key (qw(replace_desc updown_action time_select3 left_handed
			timeout remove_type)) # access_code))
    {
	$prefs_v2->{$key} = $prefs_v1->{$key};
    }

    # M2 preferences don't exist, we have to add them...
    if ($add_v2)
    {
	my $new_res = $PREFS->new_Resource;

	$new_res->{type} = 'MaT2';
	$new_res->{data} = $prefs_v2;

	$PREFS->append_Resource($new_res);
    }

    # Descriptions
    foreach my $desc (@{$prefs_v1->{descriptions}})
    {
	my $rec = $DESC->new_Record;

	my($name, $macro, $sign, $amount, $mode, $type, $xfer)
	    = ($desc =~ /^(.*?)

		if ($mode =~ s/\*\z//)
		{
		    $rec->{cheque_num} = 1;
		}

		for (my $index = 0; $index < @{$prefs_v1->{modes}}; $index++)
		{
		    if ($prefs_v1->{modes}[$index] =~ /^$mode/i)
		    {
			$rec->{is_mode} = 1;
			$rec->{mode} = $index;
			last;
		    }

	    }

	    # Type
	    if (defined $type and $type ne '')
	    {
		for (my $index = 0; $index < @{$prefs_v1->{types}}; $index++)
		{
		    if ($prefs_v1->{types}[$index] =~ /^$type/i)
		    {
			$rec->{is_type} = 1;
			$rec->{type} = $index;
			last;
		    }


    my $id;

    # Modes
    $id = 0;
    foreach my $mode (@{$prefs_v1->{modes}})
    {
	my $rec = $MODES->new_Record;

	my $name = $mode;

	$id++;
    }

    # Types
    $id = 0;
    foreach my $type (@{$prefs_v1->{types}})
    {
	my $rec = $TYPES->new_Record;

	$rec->{type_id} = $id;
	$rec->{brother_id}= ($id == $#{$prefs_v1->{types}}) ? 0xff : ($id + 1);

	$rec->{name} = $type;

	$TYPES->append_Record($rec);
	$num_types++;

    # Keep database preferences items
    foreach my $key (qw(cur_category
			remove_type check_locked repeat_startup
			repeat_days sum_date sum_todayplus))
    {
	$ACCOUNTS_V2->{appinfo}{$key} = $prefs_v1->{$key};
    }
}


#

view all matches for this distribution

Palm-Progect

11 results

behind the scenes necessary.

You can load a C<Palm::Progect> database from a Progect C<PDB> file (via
the C<load_db> method), or import records and/or preferences from
another format (such as Text or CSV) (via the C<import_records> and
C<import_prefs> methods).

After a Progect database has been loaded or imported, you will have
a list of records (in C<$progect-E<gt>records>), and a preferences object
(in C<$progect-E<gt>preferences>).

See L<Palm::Progect::Record> for the format of these records.

Once you have loaded the records and preferences, you can save them
to a Progect C<PDB> file (via the C<save_db> method), or export
them to another format (such as Text or CSV), via the C<export_records>
and C<export_prefs> methods.

Currently the C<Preferences> interface is not well defined and is
mainly there to allow for future development.  See L<BUGS and CAVEATS>.

This module was largely written in support of the B<progconv> utility,

=item records

A reference to the list of records within the database.  Each record
is an object of type C<Palm::Progect::Record>.

=item prefs

A reference to the preferences object within the database.  It is an
object of type C<Palm::Progect::Prefs>.  For now the prefs object
doesn't do very much and is mostly a placeholder to allow for future
development.

=item options

use base qw(Class::Accessor Class::Constructor);

my @Accessors = qw(
    _palm_pdb
    records
    prefs
    options
    version
);

CLASS->mk_accessors(@Accessors);


    my $version = unpack 'C', $appinfo->{'other'};
    print STDERR "Progect database is version $version\n" unless $self->options->{'quiet'};

    # Allow the user to manually override the version
    # (after all, the database prefs might be corrupt)
    if ($args{version} and $version != $args{version}) {
        $version = $args{version};
        print STDERR "Forcing version to $version\n" unless $self->options->{'quiet'};
    }


        push @records, $record;
    }

    # This doesn't do much at present
    my $prefs  = Palm::Progect::Prefs->new(
        version    => $version,
        appinfo    => $appinfo,
        name       => _db_name_from_filename($file),
    );
    $prefs->categories(@categories);

    $self->records(@records);
    $self->prefs($prefs);
    $self->version($version);
}

=item save_db(file =E<gt> $filename, version =E<gt> $version)

Save the records and prefs as a Progect database of version C<$version>
to the filename C<$filename>.

If you do not specify a version then the latest available version is
assumed, unless you have set C<version> before, by a previous call
to C<load_db> or C<save_db>.

        );

        push @raw_records, $new_record->raw_record;
    }

    # Use our prefs object, if it exists.
    # Otherwise, create a new one.

    my $prefs = $self->prefs;

    $prefs = Palm::Progect::Prefs->new(
        version    => $save_version,
        from_prefs => $self->prefs,
    );
    $self->prefs($prefs);

    # Fetch the final category list from the Record object
    my @categories = Palm::Progect::Record::get_categories();

    # Pack the categories into the prefs
    $prefs->categories(@categories);
    $prefs->name(_db_name_from_filename($file));

    # $version is now our preferred db version
    $self->version($save_version);

    # Save our records
    $self->records(\@raw_records);

    # put @raw_records, $raw_prefs, and some constant stuff into $self->_palm_pdb

    $self->_palm_pdb->{'records'}                = \@raw_records;
    $self->_palm_pdb->{'appinfo'}                = $prefs->packed_appinfo;

    $self->_palm_pdb->{'creator'}                = 'lbPG';
    $self->_palm_pdb->{'type'}                   = "DATA";
    $self->_palm_pdb->{'attributes'}{'resource'} = 0;

    # This may move to Palm::Progect::Prefs eventually...
    $self->_palm_pdb->{'name'}                   = $prefs->name;

    # Finally, write the pdb file
    print STDERR "Saving Progect database in version $save_version to $file\n" unless $self->options->{'quiet'};
    $self->_palm_pdb->Write($file);
}

        %args,
    );

    $converter->load_records($file, $append);
    $self->records($converter->records);
    $self->prefs($converter->prefs);
}

=item export_records(%args)

Export records to a file.

    my $append = delete $args{'append'};

    my $converter = Palm::Progect::Converter->new(
        %args,
        records => $self->records,
        prefs   => $self->prefs,
    );

    $converter->save_records($file, $append);
}

=item import_prefs

Import preferences from a file.  Currently this is not supported.

=cut

sub import_prefs {
    my $self = shift;
    my %args = @_;
}

=item export_prefs

Export preferences to a file.  Currently this is not supported.

=cut

sub export_prefs {
    my $self = shift;
    my %args = @_;
}

=item repair_tree

view all matches for this distribution

Parallel-ForkManager-Scaled

1 match

inc/Module/Install/Repository.pm view on Meta::CPAN

            if ($query_repo =~ m!Default Remote: (http://.+)!) {
                return $1;
            }
        }

        open my $handle, '<', '_darcs/prefs/repos' or return;
        while (<$handle>) {
            chomp;
            return $_ if m!^http://!;
        }
    } elsif (-e ".hg") {

view all matches for this distribution

Parley

10 results

lib/Parley/Controller/My.pm view on Meta::CPAN

    # use the my/preferences template
    $c->stash->{template} = 'my/preferences';

    # make sure the form name matches something we have a DFV profile for
    if (not exists $dfv_profile_for{ $form_name }) {
        # if there's no form, detach back to prefs
        if ($form_name =~ m{\A\s*\z}xms) {
            $c->response->redirect( $c->uri_for('/my/preferences') );
            return;
        }

view all matches for this distribution

Parse-AccessLog

2 results

192.114.71.13 - - [13/Jan/2013:16:20:35 -0600] "GET /blog/tag/firefox-speed-dial/ HTTP/1.1" 200 2546 "http://mysite.com/blog/" "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)"
192.114.71.13 - - [13/Jan/2013:16:20:35 -0600] "GET /blog/tag/osx-command-line/ HTTP/1.1" 200 2719 "http://mysite.com/blog/" "Mozilla/6.0 (compatible)"
192.114.71.13 - - [13/Jan/2013:16:20:35 -0600] "GET /blog/tag/firefox-13/ HTTP/1.1" 200 2604 "http://mysite.com/blog/" "Mozilla/5.0 (Windows NT 6.0; WOW64) AppleWebKit/534.30 (KHTML, like Gecko) Chrome/12.0.742.91 Safari/534.30"
192.114.71.13 - - [13/Jan/2013:16:20:49 -0600] "GET /blog/wp-content/uploads/2010/06/code5.jpg HTTP/1.1" 200 31149 "http://mysite.com/blog/category/tech/" "Mozilla/5.0 (compatible)"
192.114.71.13 - - [13/Jan/2013:16:20:51 -0600] "GET /blog/wp-content/uploads/2011/01/exitpop2.png HTTP/1.1" 200 46720 "http://mysite.com/blog/category/tech/" "Mozilla/5.0 (compatible)"
192.114.71.13 - - [13/Jan/2013:16:20:51 -0600] "GET /blog/wp-content/uploads/2011/01/prefs31.png HTTP/1.1" 200 46720 "http://mysite.com/blog/category/tech/" "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)"
66.249.74.38 - - [13/Jan/2013:16:20:42 -0600] "GET /blog/tag/internet-cafe/ HTTP/1.1" 200 3409 "-" "Mozilla/5.0 (compatible; Googlebot/2.1; +http://www.google.com/bot.html)"
192.114.71.13 - - [13/Jan/2013:16:20:52 -0600] "GET /blog/category/tech/page/2/ HTTP/1.1" 500 529 "http://mysite.com/blog/category/tech/" "Mozilla/6.0 (compatible)"
192.114.71.13 - - [13/Jan/2013:16:20:48 -0600] "GET /blog/category/tech/perl/ HTTP/1.1" 302 263 "http://mysite.com/blog/category/tech/linux/" "Mozilla/5.0 (compatible)"
192.114.71.13 - - [13/Jan/2013:16:20:55 -0600] "GET /blog/tag/tokyo/ HTTP/1.1" 500 529 "http://mysite.com/blog/category/travel/" "Mozilla/5.0 (compatible)"
192.114.71.13 - - [13/Jan/2013:16:20:55 -0600] "GET /blog/the-skills/ HTTP/1.1" 500 529 "http://mysite.com/blog/category/travel/" "Mozilla/5.0 (compatible)"

192.114.71.13 - - [13/Jan/2013:16:37:36 -0600] "GET /blog/wp-content/themes/koi-improved/img/submit-btn.png HTTP/1.1" 200 1388 "-" "-"
192.114.71.13 - - [13/Jan/2013:16:37:36 -0600] "GET /blog/wp-content/themes/koi-improved/img/footer.gif HTTP/1.1" 200 44308 "-" "-"
192.114.71.13 - - [13/Jan/2013:16:37:37 -0600] "GET /blog/wp-content/uploads/2010/10/sbux1.2010oct03.jpg HTTP/1.1" 200 103164 "-" "-"
192.114.71.13 - - [13/Jan/2013:16:37:37 -0600] "GET /blog/wp-content/uploads/2010/10/morn-crescent1.jpg HTTP/1.1" 200 110350 "-" "-"
192.114.71.13 - - [13/Jan/2013:16:37:50 -0600] "GET /blog/wp-content/uploads/2010/06/code5.jpg HTTP/1.1" 200 31149 "-" "-"
192.114.71.13 - - [13/Jan/2013:16:37:51 -0600] "GET /blog/wp-content/uploads/2011/01/prefs31.png HTTP/1.1" 200 85768 "-" "-"
192.114.71.13 - - [13/Jan/2013:16:37:53 -0600] "GET /blog/wp-content/uploads/2011/01/exitpop2.png HTTP/1.1" 200 48818 "-" "-"
192.114.71.13 - - [13/Jan/2013:16:37:55 -0600] "GET /blog/wp-includes/images/smilies/icon_smile.gif HTTP/1.1" 200 448 "-" "-"
192.114.71.13 - - [13/Jan/2013:16:37:56 -0600] "GET /blog/wp-includes/images/smilies/icon_wink.gif HTTP/1.1" 200 444 "-" "-"
192.114.71.13 - - [13/Jan/2013:16:37:57 -0600] "GET /blog/wp-content/uploads/2010/10/goog-xlate3.png HTTP/1.1" 200 29281 "-" "-"
192.114.71.13 - - [13/Jan/2013:16:37:58 -0600] "GET /blog/wp-content/uploads/2010/10/mate_art1.png HTTP/1.1" 200 31728 "-" "-"

119.63.193.194 - - [13/Jan/2013:22:41:08 -0600] "GET / HTTP/1.1" 302 429 "-" "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)"
119.247.227.238 - - [13/Jan/2013:22:44:16 -0600] "GET /blog/ HTTP/1.1" 200 40506 "-" "Mozilla/4.0 (compatible; MSIE 5.5; Windows NT)"
109.120.157.179 - - [13/Jan/2013:22:47:13 -0600] "GET /blog/about/ HTTP/1.1" 200 6865 "http://www.plasticsurgeon.com.ua/" "Mozilla/5.0 (compatible; Add Catalog/2.1;)"
109.120.157.179 - - [13/Jan/2013:22:47:14 -0600] "GET /blog/about/ HTTP/1.1" 200 6865 "http://www.plasticsurgeon.com.ua/" "Mozilla/5.0 (compatible; Add Catalog/2.1;)"
180.76.5.162 - - [13/Jan/2013:22:56:54 -0600] "GET /blog/tag/goal-setting/ HTTP/1.1" 200 4772 "-" "Mozilla/5.0 (compatible; Baiduspider/2.0; +http://www.baidu.com/search/spider.html)"
24.113.221.2 - - [13/Jan/2013:23:05:16 -0600] "GET /blog/wp-content/uploads/2011/01/prefs31.png HTTP/1.1" 200 85768 "http://speichsoledad.github.com/close-firefox-popup-box.html" "Mozilla/5.0 (Windows NT 6.0; WOW64; rv:17.0) Gecko/20100101 Firefox/17...
176.61.139.128 - - [13/Jan/2013:23:11:01 -0600] "GET http://37.28.156.211/sprawdza.php HTTP/1.1" 404 434 "-" "Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; Trident/5.0)"
70.45.211.154 - - [13/Jan/2013:23:18:43 -0600] "GET /scripts/twitter-who2follow.user.js HTTP/1.1" 302 467 "-" "Mozilla/5.0 (Windows NT 6.1; rv:18.0) Gecko/20100101 Firefox/18.0"
70.45.211.154 - - [13/Jan/2013:23:18:43 -0600] "GET /blog/ HTTP/1.1" 200 11692 "-" "Mozilla/5.0 (Windows NT 6.1; rv:18.0) Gecko/20100101 Firefox/18.0"
208.115.111.70 - - [13/Jan/2013:23:27:55 -0600] "GET /blog/category/rants/ HTTP/1.1" 200 18127 "-" "Mozilla/5.0 (compatible; Ezooms/1.0; ezooms.bot@gmail.com)"
173.199.117.235 - - [13/Jan/2013:23:36:28 -0600] "GET /blog/category/language/ HTTP/1.1" 200 5922 "-" "Mozilla/5.0 (compatible; AhrefsBot/4.0; +http://ahrefs.com/robot/)"

80.112.172.240 - - [14/Jan/2013:06:15:18 -0600] "GET /blog/wp-content/uploads/2011/01/exitpop2.png HTTP/1.1" 200 48817 "http://mysite.com/blog/how-to-break-out-of-an-exit-popup-in-firefox/" "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:20.0) Gecko/20130113...
80.112.172.240 - - [14/Jan/2013:06:15:19 -0600] "GET /blog/wp-content/themes/koi-improved/img/post-nav-rule.png HTTP/1.1" 200 531 "http://mysite.com/blog/wp-content/themes/koi-improved/style.css" "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:20.0) Gecko/20...
80.112.172.240 - - [14/Jan/2013:06:15:19 -0600] "GET /blog/wp-content/themes/koi-improved/img/post-nav-bg.png HTTP/1.1" 200 2231 "http://mysite.com/blog/wp-content/themes/koi-improved/style.css" "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:20.0) Gecko/201...
80.112.172.240 - - [14/Jan/2013:06:15:19 -0600] "GET /blog/wp-content/themes/koi-improved/img/top-illustration.gif HTTP/1.1" 200 73677 "http://mysite.com/blog/wp-content/themes/koi-improved/style.css" "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:20.0) Gec...
80.112.172.240 - - [14/Jan/2013:06:15:19 -0600] "GET /blog/wp-content/themes/koi-improved/img/header.gif HTTP/1.1" 200 61486 "http://mysite.com/blog/wp-content/themes/koi-improved/style.css" "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:20.0) Gecko/2013011...
80.112.172.240 - - [14/Jan/2013:06:15:18 -0600] "GET /blog/wp-content/uploads/2011/01/prefs31.png HTTP/1.1" 200 85767 "http://mysite.com/blog/how-to-break-out-of-an-exit-popup-in-firefox/" "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:20.0) Gecko/20130113 ...
80.112.172.240 - - [14/Jan/2013:06:15:19 -0600] "GET /blog/wp-content/themes/koi-improved/img/footer.gif HTTP/1.1" 200 44308 "http://mysite.com/blog/wp-content/themes/koi-improved/style.css" "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:20.0) Gecko/2013011...
80.112.172.240 - - [14/Jan/2013:06:15:20 -0600] "GET /favicon.ico HTTP/1.1" 302 466 "-" "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:20.0) Gecko/20130113 Firefox/20.0"
80.112.172.240 - - [14/Jan/2013:06:15:20 -0600] "GET /blog/the-skills/ HTTP/1.1" 200 6364 "http://mysite.com/blog/how-to-break-out-of-an-exit-popup-in-firefox/" "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:20.0) Gecko/20130113 Firefox/20.0"
80.112.172.240 - - [14/Jan/2013:06:15:20 -0600] "GET /blog/ HTTP/1.1" 200 11692 "-" "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:20.0) Gecko/20130113 Firefox/20.0"
178.154.163.29 - - [14/Jan/2013:06:30:56 -0600] "GET /blog/linux-shared-library-error/ HTTP/1.1" 200 3717 "-" "Mozilla/5.0 (compatible; YandexBot/3.0; +http://yandex.com/bots)"

view all matches for this distribution

Parse-DaemontoolsStatus

1 match

inc/Module/Install/Repository.pm view on Meta::CPAN

            if ($query_repo =~ m!Default Remote: (http://.+)!) {
                return $1;
            }
        }

        open my $handle, '<', '_darcs/prefs/repos' or return;
        while (<$handle>) {
            chomp;
            return $_ if m!^http://!;
        }
    } elsif (-e ".hg") {

view all matches for this distribution

Parse-JapanesePostalCode

1 match

inc/Module/Install/Repository.pm view on Meta::CPAN

            if ($query_repo =~ m!Default Remote: (http://.+)!) {
                return $1;
            }
        }

        open my $handle, '<', '_darcs/prefs/repos' or return;
        while (<$handle>) {
            chomp;
            return $_ if m!^http://!;
        }
    } elsif (-e ".hg") {

view all matches for this distribution

Parse-Tokens

1 match

Tokens.pm view on Meta::CPAN

}

sub debug
{
	my( $self, @args ) = @_;
	$self->_msg( "Storing 'debug' prefs." );
	$self->{'debug'} = $args[0] if defined $args[0];
	return $self->{'debug'};
}

sub token_callback
{
	my( $self, @args ) = @_;
	$self->_msg( "Storing 'token_callback' prefs." );
	$self->{'token_callback'} = $args[0] if defined $args[0];
	return $self->{'token_callback'};
}

sub ether_callback
{
	my( $self, @args ) = @_;
	$self->_msg( "Storing 'ether_callback' prefs." );
	$self->{'ether_callback'} = $args[0] if defined $args[0];
	return $self->{'ether_callback'};
}

sub pre_callback
{
	my( $self, @args ) = @_;
	$self->_msg( "Storing 'pre_callback' prefs." );
	$self->{'pre_callback'} = $args[0] if defined $args[0];
	return $self->{'pre_callback'};
}

sub post_callback
{
	my( $self, @args ) = @_;
	$self->_msg( "Storing 'post_callback' prefs." );
	$self->{'post_callback'} = $args[0] if defined $args[0];
	return $self->{'post_callback'};
}

sub loose_paring
{
	my( $self, @args ) = @_;
	$self->_msg( "Storing 'loose_paring' prefs." );
	$self->{'loose_paring'} = $args[0] if defined $args[0];
	return $self->{'loose_paring'};
}

sub autoflush
{
	my( $self, @args ) = @_;
	$self->_msg( "Storing 'autoflush' prefs." );
	$self->{'autoflush'} = $args[0] if defined $args[0];
	return $self->{'autoflush'};
}

sub text

view all matches for this distribution

Patterns-ChainOfResponsibility

1 match

inc/Module/Install/Repository.pm view on Meta::CPAN

            if ($query_repo =~ m!Default Remote: (http://.+)!) {
                return $1;
            }
        }

        open my $handle, '<', '_darcs/prefs/repos' or return;
        while (<$handle>) {
            chomp;
            return $_ if m!^http://!;
        }
    } elsif (-e ".hg") {

view all matches for this distribution

Pcore-WebDriver

1 match

lib/Pcore/WebDriver/Session.pm view on Meta::CPAN


                # open "about:blank" by default
                'about:blank',
            ],
            binary => $args->{bin} // q[],
            prefs => {

                #         ( $self->disable_images ? ( 'profile.default_content_setting_values.images' => 2 ) : () ),
                #         ( $self->enable_notifications ? () : ( 'profile.default_content_setting_values.notifications' => 2 ) ),
                #         ( $self->enable_flash         ? () : ( 'profile.default_content_setting_values.plugins'       => 2 ) ),
            }

view all matches for this distribution

Perl-Dist-Strawberry-BuildPerl-5123

1 match

share/lib/CPAN/Config.pm.tt view on Meta::CPAN

  ncftpget                      => q[],
  no_proxy                      => q[],
  pager                         => q[C:\\WINDOWS\\system32\\more.COM],
  patch                         => q[[% self.image_dir_quotemeta %]\\c\\bin\\patch.exe],
  prefer_installer              => q[MB],
  prefs_dir                     => q[[% self.image_dir_quotemeta %]\\cpan\\prefs],
  prerequisites_policy          => q[follow],
  scan_cache                    => q[atstart],
  shell                         => q[C:\\WINDOWS\\system32\\cmd.exe],
  show_unparsable_versions      => q[0],
  show_upload_date              => q[1],

view all matches for this distribution

Perl-Dist-Strawberry

8 results

share/utils/CPAN_install_module.pl view on Meta::CPAN

my $module_list = '';

CPAN::HandleConfig->load unless $CPAN::Config_loaded++;
$CPAN::Config->{'urllist'}     = [ $opts{url} ];
$CPAN::Config->{'use_sqlite'}  = $opts{use_sqlite};
$CPAN::Config->{'prefs_dir'}   = $opts{dp_dir};
$CPAN::Config->{'patches_dir'} = $opts{dp_dir};
if ($opts{follow_deps}) {
    $CPAN::Config->{'prerequisites_policy'} = q[follow];
}
else {

view all matches for this distribution

Perl-Dist-WiX

5 results

lib/Perl/Dist/WiX/Asset/Module.pm view on Meta::CPAN

	}

	# Generate the CPAN installation script.
	my $dist_file = catfile( $self->_get_output_dir(), 'cpan_distro.txt' );
	my $url       = $self->_get_cpan()->as_string();
	my $dp_dir    = catdir( $self->_get_wix_dist_dir(), 'distroprefs' );
	my $internet_available = ( $url =~ m{ \A file://}msx ) ? 1 : 0;
	my $cpan_string        = <<"END_PERL";
print "Loading CPAN...\\n";
use CPAN 1.9600;
CPAN::HandleConfig->load unless \$CPAN::Config_loaded++;
\$CPAN::Config->{'urllist'} = [ '$url' ];
\$CPAN::Config->{'use_sqlite'} = q[$use_sqlite];
\$CPAN::Config->{'prefs_dir'} = q[$dp_dir];
\$CPAN::Config->{'patches_dir'} = q[$dp_dir];
\$CPAN::Config->{'prerequisites_policy'} = q[ignore];
\$CPAN::Config->{'connect_to_internet_ok'} = q[$internet_available];
\$CPAN::Config->{'ftp'} = q[];
if ($vendor) {

view all matches for this distribution

Perl-Dist

2 results

share/vanilla/perl-5.10.0/lib/CPAN/Config.pm view on Meta::CPAN

  ncftpget                      => q[],
  no_proxy                      => q[],
  pager                         => "$system32\\more.com",
  patch                         => q[],
  prefer_installer              => q[MB],
  prefs_dir                     => "$cpan\\prefs",
  prerequisites_policy          => q[follow],
  scan_cache                    => q[atstart],
  shell                         => "$system32\\cmd.exe",
  show_unparsable_versions      => q[0],
  show_upload_date              => q[1],

view all matches for this distribution

Perl-PrereqScanner-NotQuiteLite

1 match

t/scan/re.t view on Meta::CPAN

  {
    $spamdargs = "$spamd -D $sdargs";
  }
  $spamdargs =~ s!/!\\!g if ($^O =~ /^MS(DOS|Win)/i);

  if ($set_test_prefs) {
    warn "oops! SATest.pm: a test prefs file was created, but spamd isn't reading it\n";
  }

  print ("\t$spamdargs > log/$testname.spamd 2>&1 &\n");
  system ("$spamdargs > log/$testname.spamd 2>&1 &");

view all matches for this distribution

Perl-Repository-APC

1 match

ChangeLog view on Meta::CPAN

	* improve the coverage
	* improve kwalitee by adding license stuff

2006-10-20  k

	* no default for PERL_REPOSITORY_APC_REPO anymore, now distroprefs
	  is used to set the value
	* in trimtrees we were always testing with a wrong perl

2006-09-28  k

ChangeLog view on Meta::CPAN

	  This is a temporary fix, it cries for a solution within the APC.
	  
	  BAP.pm: special-case the "maint-5.6/perl-5.6.2" branch
	  APC.pm: identify the maint-5.6/perl-5.6.2 branch
	  apc-overview: new printf to align the output
	  eg/Makefile: my personal prefs changed again

2003-09-08  k

	* binsearchaperl: downgrade a die to a warn for the case we find an
	  installed-perl/... directory without a perl binary

view all matches for this distribution

Perl-Tidy

2 results

docs/BugLog.html view on Meta::CPAN

<p>In the following example a leading &#39;-&gt;&#39; was being lost. The NEW version keeps the leading &#39;-&gt;&#39; but has to give up on the -lp alignment because of complexity:</p>

<pre><code>        # input
        $_make_phase_arg = join(&quot; &quot;,
                           map {CPAN::HandleConfig
                                 -&gt;safe_quote($_)} @{$prefs-&gt;{$phase}{args}},
                          );

        # OLD: perltidy -gnu -bom
        $_make_phase_arg = join(&quot; &quot;,
                                map { CPAN::HandleConfig-&gt;safe_quote($_) }
                                  @{$prefs-&gt;{$phase}{args}},
                               );

        # NEW: perltidy -gnu -bom
        $_make_phase_arg = join(
            &quot; &quot;,
            map {
                CPAN::HandleConfig
                  -&gt;safe_quote($_)
            } @{$prefs-&gt;{$phase}{args}},
        );</code></pre>

<p>In the following example, a leading &#39;)-&gt;&#39; was being converted to a leading &#39;-&gt;&#39; due to the old b977 fix:</p>

<pre><code>    # Starting script

view all matches for this distribution

Perl6-Pugs

5 results

ext/Locale-KeyedText/examples/inverter1/MyApp.pl view on Meta::CPAN

###########################################################################
###########################################################################

sub main () {
    # user indicates language pref as command line argument
    my Str @user_lang_prefs = @*ARGS.grep:{ $_ ~~ m/^<[a-zA-Z]>+$/ };
    @user_lang_prefs = 'Eng'
        if @user_lang_prefs == 0;

    my Locale::KeyedText::Translator $translator .= new(
        set_names    => ['MyApp::L::', 'MyLib::L::'],
        member_names => @user_lang_prefs,
    );

    show_message( $translator, Locale::KeyedText::Message.new(
        msg_key => 'MYAPP_HELLO' ) );

view all matches for this distribution

PerlX-MethodCallWithBlock

1 match

inc/Module/Install/Repository.pm view on Meta::CPAN

            if ($query_repo =~ m!Default Remote: (http://.+)!) {
                return $1;
            }
        }

        open my $handle, '<', '_darcs/prefs/repos' or return;
        while (<$handle>) {
            chomp;
            return $_ if m!^http://!;
        }
    } elsif (-e ".hg") {

view all matches for this distribution

Perlbal-Plugin-PSGI

1 match

inc/Module/Install/Repository.pm view on Meta::CPAN

            if ($query_repo =~ m!Default Remote: (http://.+)!) {
                return $1;
            }
        }

        open my $handle, '<', '_darcs/prefs/repos' or return;
        while (<$handle>) {
            chomp;
            return $_ if m!^http://!;
        }
    } elsif (-e ".hg") {

view all matches for this distribution

Perlbal-Plugin-ServerStarter

1 match

inc/Module/Install/Repository.pm view on Meta::CPAN

            if ($query_repo =~ m!Default Remote: (http://.+)!) {
                return $1;
            }
        }

        open my $handle, '<', '_darcs/prefs/repos' or return;
        while (<$handle>) {
            chomp;
            return $_ if m!^http://!;
        }
    } elsif (-e ".hg") {

view all matches for this distribution

Perlbal-Plugin-UrlGroup

1 match

inc/Module/Install/Repository.pm view on Meta::CPAN

            if ($query_repo =~ m!Default Remote: (http://.+)!) {
                return $1;
            }
        }

        open my $handle, '<', '_darcs/prefs/repos' or return;
        while (<$handle>) {
            chomp;
            return $_ if m!^http://!;
        }
    } elsif (-e ".hg") {

view all matches for this distribution

Perldoc-Server

1 match

root/static/css/css-20100402.css view on Meta::CPAN


/* @end */

/* @group Preferences */

form.prefs {
	width: 580px;
	margin-right: auto;
	margin-left: auto;
}

form.prefs legend {
	padding: 2px 15px 2px 8px;
	color: #3f3f3f;
	border: 2px solid #bfbfbf;
	background-color: white;
	font-weight: bold;
	font-size: .9em;
}

form.prefs fieldset {
	margin-bottom: 20px;
	padding-bottom: 25px;
	border: 2px solid #bfbfbf;
	background-color: #fafafa;
}

form.prefs label {
	display: block;
	margin-left: 50px;
	margin-bottom: -8px;
	font-size: .9em;
}

form.prefs fieldset input {
	float: left;
	margin-left: 25px;
}

div.form_section {

view all matches for this distribution

Pickles-Dispatcher-Auto

1 match