view release on metacpan or search on metacpan
static/css/terminal-dark/main.css view on Meta::CPAN
}
/* Menu bar */
div#quickbar {
color: #03b601;
}
#main-navigation #app-nav.sf-shadow > li, #main-navigation #app-nav.sf-shadow > li > a, #prefs-menu > li, #prefs-menu > li > a, #logo .rtname {
color: #03b601;
}
.menu-item.sf-with-ul, {
color: #03b601;
}
view release on metacpan or search on metacpan
html/Journal/User/dhandler view on Meta::CPAN
if ($argument =~ /^(.*?)\/RSS$/) {
$username = $1;
$category = 'RSS';
} elsif ($argument =~ /^(.*?)\/Prefs/) {
$username = $1;
$mode = 'prefs';
} elsif ($argument =~ /^(.*?)\/Category\/(.*)$/) {
$username = $1;
$category = $2;
} elsif ($argument =~ /^(.*?)\/Entry\/(.*)$/) {
$username = $1;
html/Journal/User/dhandler view on Meta::CPAN
$m->comp("../Elements/Abort", Message =>"User not found");
}
if ($mode eq 'prefs') {
$m->comp('/Journal/Prefs.html');
$m->abort();
}
view release on metacpan or search on metacpan
html/NoAuth/trac.css view on Meta::CPAN
}
#help :link, #help :visited { cursor: help }
#help hr { display: none }
/* Page preferences form */
#prefs {
background: #f7f7f0;
border: 1px outset #998;
float: right;
font-size: 9px;
padding: .8em;
position: relative;
margin: 0 1em 1em;
}
* html #prefs { width: 26em } /* Set width only for IE */
#prefs input, #prefs select { font-size: 9px; vertical-align: middle }
#prefs fieldset { border: none; margin: .5em; padding: 0 }
#prefs fieldset legend {
background: transparent;
color: #000;
font-size: 9px;
font-weight: normal;
margin: 0 0 0 -1.5em;
padding: 0;
}
#prefs .buttons { text-align: right }
/* Wiki */
a.missing:link,a.missing:visited { background: #fafaf0; color: #998 }
a.missing:hover { color: #000; }
view release on metacpan or search on metacpan
html/Foundry/Project/Wiki/lib/CGI/Kwiki.pm view on Meta::CPAN
formatter
template
plugin
search
changes
prefs
pages
slides
javascript
style
scripts
html/Foundry/Project/Wiki/lib/CGI/Kwiki.pm view on Meta::CPAN
attribute 'template';
attribute 'formatter';
attribute 'database';
attribute 'metadata';
attribute 'backup';
attribute 'prefs';
attribute 'i18n';
# Constructor inherited by most classes
sub new {
my ($class, $driver) = @_;
html/Foundry/Project/Wiki/lib/CGI/Kwiki.pm view on Meta::CPAN
$self->template($driver->template);
$self->formatter($driver->formatter);
$self->database($driver->database);
$self->metadata($driver->metadata);
$self->backup($driver->backup);
$self->prefs($driver->prefs);
return $self;
}
sub load_driver {
require CGI::Kwiki::Config;
html/Foundry/Project/Wiki/lib/CGI/Kwiki.pm view on Meta::CPAN
edit_class: CGI::Kwiki::Edit
formatter_class: CGI::Kwiki::Formatter
template_class: CGI::Kwiki::Template
search_class: CGI::Kwiki::Search
changes_class: CGI::Kwiki::Changes
prefs_class: CGI::Kwiki::Prefs
pages_class: CGI::Kwiki::Pages
slides_class: CGI::Kwiki::Slides
javascript_class: CGI::Kwiki::Javascript
style_class: CGI::Kwiki::Style
scripts_class: CGI::Kwiki::Scripts
view release on metacpan or search on metacpan
lib/Rapi/Blog/Module/NavTree.pm view on Meta::CPAN
url => '/adm/main/db/rapidapp_coreschema_defaultview',
leaf => \1
},
{
text => 'Roles',
iconCls => 'ra-icon-user-prefs',
url => '/adm/main/db/rapidapp_coreschema_role',
leaf => \1
},
]
},
view release on metacpan or search on metacpan
lib/RapidApp/CoreSchema/Result/Role.pm view on Meta::CPAN
__PACKAGE__->TableSpec_set_conf(
title => 'Role',
title_multi => 'Roles',
iconCls => 'ra-icon-user-pref',
multiIconCls => 'ra-icon-user-prefs',
display_column => 'role',
priority_rel_columns => 1,
);
__PACKAGE__->TableSpec_set_conf('column_properties_ordered',
view release on metacpan or search on metacpan
lib/Reddit/Client.pm view on Meta::CPAN
}
}
=head1 OAUTH
Reddit::Client uses Oauth to communicate with Reddit. To get Oauth keys, visit your apps page on Reddit, located at L<https://www.reddit.com/prefs/apps>, and create an app. There are three types of apps available. Reddit::Client supports "script" and...
=over
=item Script apps
view release on metacpan or search on metacpan
redland/raptor/examples/grapper.c view on Meta::CPAN
{
GtkAccelGroup *accel_group;
GtkItemFactory* menu_item_factory;
GtkWidget *menu_bar;
GtkMenu *prefs_menu;
GtkWidget *v_paned;
GtkWidget *v_box;
GtkWidget *box;
GtkWidget *go_button;
GtkWidget* feature_items[RAPTOR_FEATURE_LAST];
redland/raptor/examples/grapper.c view on Meta::CPAN
#endif
GtkWidget *guess_button;
GtkWidget *syntax_optionmenu;
GtkWidget *syntax_menu;
GtkWidget *url_entry;
GtkWidget *triples_frame, *prefs_frame;
GtkWidget *triples_scrolled_window;
GtkWidget *triples_treeview;
GtkCellRenderer *renderer;
GtkTreeViewColumn *column;
#ifdef GRAPPER_QNAMES
GtkTooltips *qnames_tooltips;
#endif
GtkTooltips *guess_tooltips;
GtkTooltips *syntax_tooltips;
GtkWidget *prefs_box;
GtkListStore *store;
int i;
GtkWidget *errors_frame, *errors_scrolled_window;
GtkWidget *errors_treeview;
GtkListStore *errors_store;
redland/raptor/examples/grapper.c view on Meta::CPAN
/* add hbox to vbox */
gtk_box_pack_start (GTK_BOX (v_box), box, FALSE, FALSE, 0);
/* horizontal box for syntax prefs in vertical box (v_box) */
prefs_frame = gtk_frame_new ("RDF Syntax");
prefs_box = gtk_hbutton_box_new();
gtk_button_box_set_layout(GTK_BUTTON_BOX(prefs_box),GTK_BUTTONBOX_START);
#ifdef GRAPPER_QNAMES
/* qnames button in horizontal box */
qnames_button = gtk_check_button_new_with_label("QNames");
redland/raptor/examples/grapper.c view on Meta::CPAN
/* connect button clicked event to callback */
g_signal_connect (G_OBJECT (qnames_button), "clicked",
G_CALLBACK (qnames_button_callback), state);
/* pack into the invisible box */
gtk_box_pack_start (GTK_BOX(prefs_box), qnames_button, TRUE, TRUE, 0);
gtk_widget_show (qnames_button);
#endif
/* guess button in horizontal box */
redland/raptor/examples/grapper.c view on Meta::CPAN
/* connect button clicked event to callback */
g_signal_connect (G_OBJECT (guess_button), "clicked",
G_CALLBACK (guess_button_callback), state);
/* pack into the invisible box */
gtk_box_pack_start (GTK_BOX(prefs_box), guess_button, TRUE, TRUE, 0);
gtk_widget_show (guess_button);
/* add prefs frame to vbox */
gtk_container_add(GTK_CONTAINER(prefs_frame), prefs_box);
gtk_widget_show (prefs_box);
/* add prefs frame to start of vbox */
gtk_box_pack_start (GTK_BOX (v_box), prefs_frame, FALSE, TRUE, 0);
gtk_widget_show (prefs_frame);
/* paned in vertical box */
v_paned = gtk_vpaned_new ();
redland/raptor/examples/grapper.c view on Meta::CPAN
gtk_widget_show(errors_treeview);
prefs_menu=GTK_MENU(gtk_item_factory_get_widget(menu_item_factory, "/Preferences"));
/* features in the preferences menu */
for(i=0; i <= RAPTOR_FEATURE_LAST; i++) {
const char *feature_name;
const char *feature_label;
redland/raptor/examples/grapper.c view on Meta::CPAN
/* add to the preferences menu */
feature_items[i] = gtk_check_menu_item_new_with_label(feature_label);
gtk_check_menu_item_set_active(GTK_CHECK_MENU_ITEM(feature_items[i]),
state->features[i]);
gtk_menu_shell_append(GTK_MENU_SHELL(prefs_menu), feature_items[i]);
g_signal_connect(G_OBJECT(feature_items[i]), "toggled",
G_CALLBACK(feature_menu_toggled), (gpointer)sbdata);
gtk_widget_show (feature_items[i]);
}
redland/raptor/examples/grapper.c view on Meta::CPAN
syntax_tooltips = gtk_tooltips_new ();
gtk_tooltips_set_tip (syntax_tooltips, syntax_optionmenu, "Chose the Syntax to parse", NULL);
/* pack into the invisible box */
gtk_box_pack_start (GTK_BOX(prefs_box), syntax_optionmenu, TRUE, TRUE, 0);
gtk_widget_show (syntax_optionmenu);
/* add vbox to window */
view release on metacpan or search on metacpan
scripts/used-by.pl view on Meta::CPAN
$| = 1;
$ENV{AUTOMATED_TESTING} = 1;
$ENV{PERL_USE_UNSAFE_INC} = 1; # My modules are not responsible
# Skip all dists that
# - are FAIL not due to the mudule being tested (e.g. POD or signature mismatch)
# - that require interaction (not dealt with in distroprefs or %ENV)
# - are not proper dists (cannot use CPAN's ->test)
# - require external connections or special devices
my %skip = $opt_a ? () : map { $_ => 1 } (
# Data-Peek
"GSM-Gnokii", # External device
view release on metacpan or search on metacpan
share/google-code-prettify/lang-matlab.js view on Meta::CPAN
var a=null,b=window.PR,c=[[b.PR_PLAIN,/^[\t-\r \xa0]+/,a," \t\r\n\u000b\u000c\u00a0"],[b.PR_COMMENT,/^%{[^%]*%+(?:[^%}][^%]*%+)*}/,a],[b.PR_COMMENT,/^%[^\n\r]*/,a,"%"],["syscmd",/^![^\n\r]*/,a,"!"]],d=[["linecont",/^\.\.\.\s*[\n\r]/,a],["err",/^\?\?\...
[b.PR_STRING,/^'(?:[^']|'')*'/,a],[b.PR_LITERAL,/^[+-]?\.?\d+(?:\.\d*)?(?:[Ee][+-]?\d+)?[ij]?/,a],[b.PR_TAG,/^[()[\]{}]/,a],[b.PR_PUNCTUATION,/^[!&*-/:->@\\^|~]/,a]],e=[["lang-matlab-identifiers",/^([A-Za-z]\w*(?:\.[A-Za-z]\w*)*)/,a],[b.PR_TAG,/^[()[...
b.registerLangHandler(b.createSimpleLexer([],[[b.PR_KEYWORD,/^\b(?:break|case|catch|classdef|continue|else|elseif|end|for|function|global|if|otherwise|parfor|persistent|return|spmd|switch|try|while)\b/,a],["const",/^\b(?:true|false|inf|Inf|nan|NaN|ep...
a],["fun_tbx",/^\b(?:addedvarplot|andrewsplot|anova[12n]|ansaribradley|aoctool|barttest|bbdesign|beta(?:cdf|fit|inv|like|pdf|rnd|stat)|bino(?:cdf|fit|inv|pdf|rnd|stat)|biplot|bootci|bootstrp|boxplot|candexch|candgen|canoncorr|capability|capaplot|case...
a],["fun_tbx",/^\b(?:adapthisteq|analyze75info|analyze75read|applycform|applylut|axes2pix|bestblk|blockproc|bwarea|bwareaopen|bwboundaries|bwconncomp|bwconvhull|bwdist|bwdistgeodesic|bweuler|bwhitmiss|bwlabel|bwlabeln|bwmorph|bwpack|bwperim|bwselect|...
a],["fun_tbx",/^\b(?:bintprog|color|fgoalattain|fminbnd|fmincon|fminimax|fminsearch|fminunc|fseminf|fsolve|fzero|fzmult|gangstr|ktrlink|linprog|lsqcurvefit|lsqlin|lsqnonlin|lsqnonneg|optimget|optimset|optimtool|quadprog)\b/,a],["ident",/^[A-Za-z]\w*(...
view release on metacpan or search on metacpan
share/rex-tab-completion.bash view on Meta::CPAN
} &&
complete -F _rex rex
_rex_fix_colon_reply()
{
local colprefs i
colprefs=${cur%"${cur##*:}"}
i=${#COMPREPLY[*]}
while [ $((--i)) -ge 0 ]; do
COMPREPLY[$i]=${COMPREPLY[$i]#"$colprefs"}
done
}
# Local variables:
# mode: shell-script
view release on metacpan or search on metacpan
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 release on metacpan or search on metacpan
xt/dependents.t view on Meta::CPAN
waitpid $pid, 0;
my $status = $?;
return wantarray ? ($output, $status) : $output;
}
my $prefs = do {
my $xt = sub {
my ($dist, $extra) = @_;
my $config = {
%$extra,
match => {
xt/dependents.t view on Meta::CPAN
};
my $cpan_home = "$temp_home/.cpan";
mkdir $cpan_home;
mkdir "$cpan_home/CPAN";
my $prefs_dir = "$cpan_home/prefs";
mkdir $prefs_dir;
my $patch_dir = Cwd::realpath(File::Basename::dirname(__FILE__) . '/dependents');
delete $ENV{HARNESS_PERL_SWITCHES};
delete $ENV{AUTHOR_TESTING};
xt/dependents.t view on Meta::CPAN
auto_commit => 0,
build_requires_install_policy => 'yes',
connect_to_internet_ok => 1,
cpan_home => $cpan_home,
inhibit_startup_message => 1,
prefs_dir => $prefs_dir,
patches_dir => $patch_dir,
prerequisites_policy => 'follow',
recommends_policy => 0,
suggests_policy => 0,
urllist => [ 'http://cpan.metacpan.org/' ],
xt/dependents.t view on Meta::CPAN
(my $mod = "$yaml.pm") =~ s{::}{/}g;
eval { require $mod }
or undef $yaml;
}
for my $dist (keys %$prefs) {
my $prefs = $prefs->{$dist};
if ($yaml) {
open my $fh, '>', "$prefs_dir/$dist.yml";
print { $fh } $yaml->can('Dump')->(@$prefs);
close $fh;
}
local $Data::Dumper::Sortkeys = 1;
local $Data::Dumper::Indent = 1;
open my $fh, '>', "$prefs_dir/$dist.dd";
print { $fh } Data::Dumper::Dumper(@$prefs);
close $fh;
}
}
my $ext = qr{\.(?:t(?:ar\.)?(?:bz2|xz|gz)|tar|zip)};
view release on metacpan or search on metacpan
t/spot-check-12.t
t/spot-check-13.t
t/spot-check-14.t
t/test-lib.pl
t/undef-overrides-default.t
t/unique-key-prefs.t
META.yml Module YAML meta-data (added by MakeMaker)
META.json Module JSON meta-data (added by MakeMaker)
view release on metacpan or search on metacpan
examples/shell.pl view on Meta::CPAN
use warnings;
use Rosetta::Shell;
my @cmd_line_args = grep { $_ =~ m/^[a-zA-Z:_]+$/x } @ARGV;
my ($engine_name, @user_lang_prefs) = @cmd_line_args;
$engine_name = $engine_name ? $engine_name : 'Rosetta::Engine::Example';
@user_lang_prefs = 'en'
if @user_lang_prefs == 0;
Rosetta::Shell::main({ 'engine_name' => $engine_name,
'user_lang_prefs' => \@user_lang_prefs });
view release on metacpan or search on metacpan
lib/Rubric/WebApp.pm view on Meta::CPAN
my ($self) = @_;
return $self->login unless $self->param('current_user');
return $self->template("preferences")
unless my %prefs = $self->_get_prefs_form;
if (my %errors = $self->validate_prefs(\%prefs)) {
return $self->template("preferences", { %prefs, %errors } );
}
$self->update_user(\%prefs);
}
#pod =head2 update_user(\%prefs)
#pod
#pod This method will update the current user object with the changes in C<%prefs>,
#pod which is passed by the C<preferences> method.
#pod
#pod =cut
sub update_user {
my ($self, $prefs) = @_;
for ($self->param('current_user')) {
$_->password(md5_hex($prefs->{password_1})) if $prefs->{password_1};
$_->email($prefs->{email});
$_->update;
}
$self->redirect_root('updated');
}
sub _get_prefs_form {
my ($self) = @_;
my %form;
for (qw(password password_1 password_2 email)) {
$form{$_} = $self->query->param($_) if $self->query->param($_);
}
return %form;
}
#pod =head2 validate_prefs(\%prefs)
#pod
#pod Given a set of preference updates from a form submission, this method validates
#pod them and returns a description of the validation results. This method will
#pod probably be redesigned (possibly with Data::FormValidator) in the future.
#pod Don't count on its interface.
#pod
#pod =cut
#pod =begin future
#pod
#pod sub validate_prefs {
#pod my ($self, $prefs) = @_;
#pod require Data::FormValidator;
#pod
#pod my $profile = {
#pod required => [qw(password)],
#pod optional => [qw(password_1 password_2 email)],
lib/Rubric/WebApp.pm view on Meta::CPAN
#pod }
#pod },
#pod dependency_groups => { new_password => [qw(password_1 password_2)] }
#pod };
#pod
#pod my $results = Data::FormValidator->check($prefs, $profile);
#pod }
#pod
#pod =end future
#pod
#pod =cut
sub validate_prefs {
my ($self, $prefs) = @_;
my %errors;
if (not $prefs->{email}) {
$errors{email_missing} = 1;
} elsif ($prefs->{email} and $prefs->{email} !~ $Email::Address::addr_spec) {
undef $prefs->{email};
$errors{email_invalid} = 1;
}
if (
$prefs->{password_1} and $prefs->{password_2}
and $prefs->{password_1} ne $prefs->{password_2}
) {
undef $prefs->{password_1};
undef $prefs->{password_2};
$errors{password_mismatch} = 1;
}
unless ($prefs->{password}) {
$errors{password_missing} = 1;
} elsif (
md5_hex($prefs->{password}) ne $self->param('current_user')->password
) {
$errors{password_wrong} = 1;
}
return %errors;
lib/Rubric/WebApp.pm view on Meta::CPAN
=head2 preferences
This method displays account information for the current user. Some account
settings may be changed.
=head2 update_user(\%prefs)
This method will update the current user object with the changes in C<%prefs>,
which is passed by the C<preferences> method.
=head2 validate_prefs(\%prefs)
Given a set of preference updates from a form submission, this method validates
them and returns a description of the validation results. This method will
probably be redesigned (possibly with Data::FormValidator) in the future.
Don't count on its interface.
=begin future
sub validate_prefs {
my ($self, $prefs) = @_;
require Data::FormValidator;
my $profile = {
required => [qw(password)],
optional => [qw(password_1 password_2 email)],
lib/Rubric/WebApp.pm view on Meta::CPAN
}
},
dependency_groups => { new_password => [qw(password_1 password_2)] }
};
my $results = Data::FormValidator->check($prefs, $profile);
}
=end future
=head2 newuser
view release on metacpan or search on metacpan
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 "$ENV{HOME}/.svk") {
view release on metacpan or search on metacpan
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 release on metacpan or search on metacpan
Net_SNMP_util.pm view on Meta::CPAN
sub snmpwalk_flg ($$@) {
my($host, $hash_sub, @vars) = @_;
my($session, %args, @enoid, @poid, $toid, $oid, $got);
my($val, $ret, %soid, %nsoid, @retvals, $tmp);
my(%rethash, $h_ref, @tmprefs);
my($stop);
$h_ref = (ref $vars[$#vars] eq "HASH") ? pop(@vars) : \%rethash;
$session = &snmpopen($host, 0, \@vars);
Net_SNMP_util.pm view on Meta::CPAN
#
# Create temporary array of refs to return values
#
foreach $oid (0..$#enoid) {
my $tmparray = [];
$tmprefs[$oid] = $tmparray;
$nsoid{$oid} = $oid;
}
$got = 0;
@poid = @enoid;
Net_SNMP_util.pm view on Meta::CPAN
&$hash_sub($h_ref, $host, $qoid, $tmpo, $inst, $ret->{$oid}, $upo);
} else {
my $tmpo;
my $tmpv = $ret->{$oid};
$tmpo = substr($oid, length($toid)+1);
push @{$tmprefs[$tmp]}, "$tmpo:$tmpv";
}
} else {
$stop = 1 if ($#enoid == 0);
}
}
Net_SNMP_util.pm view on Meta::CPAN
if ($got) {
if (defined($hash_sub)) {
return ($h_ref) if ($Net_SNMP_util::ReturnHashRefs);
return (%$h_ref);
} elsif ($Net_SNMP_util::Return_array_refs) {
return (@tmprefs);
} else {
do {
$got = 0;
foreach $toid (0..$#enoid) {
next if (scalar(@{$tmprefs[$toid]}) <= 0);
$got = 1;
$oid = shift(@{$tmprefs[$toid]});
if ($#enoid > 0) {
($oid, $val) = split(':', $oid, 2);
$oid = $enoid[$toid] . '.' . $oid;
push(@retvals, "$oid:$val");
} else {
view release on metacpan or search on metacpan
example/genericbarcode.pl
example/hello.pl
example/hello_compile.pl
example/hello_lite.pl
example/java/cxf/.classpath
example/java/cxf/.settings/org.eclipse.jdt.core.prefs
example/java/cxf/.settings/org.maven.ide.eclipse.prefs
example/java/cxf/11_helloworld.wsdl
example/java/cxf/jax-binding.xml
example/java/cxf/pom.xml
example/java/cxf/README
example/java/cxf/src/main/resources/cxf.xml
view release on metacpan or search on metacpan
It would first get the object composition information:
oid table id
=== ===== ==
56712 user 1625
56712 user_prefs 8172
56712 user_history 9102
And create the User object with information from all
three tables.
view release on metacpan or search on metacpan
.tmp/libpng/.gitignore view on Meta::CPAN
### Visual Studio user files
*.rsuser
*.sln.docstates
*.suo
*.user
*.userprefs
### Visual Studio cache files (for older versions)
*.aps
*.ncb
*.opensdf
*.sdf
view release on metacpan or search on metacpan
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 release on metacpan or search on metacpan
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 release on metacpan or search on metacpan
css/trac/diff.css view on Meta::CPAN
/* Diff preferences */
#prefs fieldset { margin: 1em .5em .5em; padding: .5em 1em 0 }
/* Diff/change overview */
#overview {
line-height: 130%;
margin-top: 1em;
view release on metacpan or search on metacpan
lib/SWF/NeedsRecompile.pm view on Meta::CPAN
use base qw(Exporter);
our @EXPORT_OK = qw(
check_files
as_classpath
flash_prefs_path
flash_config_path
);
my $cached_as_classpath;
lib/SWF/NeedsRecompile.pm view on Meta::CPAN
sub as_classpath
{
if (!$cached_as_classpath)
{
my $prefs_file = flash_prefs_path();
if (!$prefs_file || ! -f $prefs_file)
{
#_log(2, 'Failed to locate the Flash prefs file');
return q{.};
}
my $conf_dir = flash_config_path();
for (File::Slurp::read_file($prefs_file))
{
if (m/<Package_Paths>(.*?)<\/Package_Paths>/xms)
{
my $cp = $1;
my @dirs = split /;/xms, $cp;
lib/SWF/NeedsRecompile.pm view on Meta::CPAN
}
}
return @{$cached_as_classpath};
}
=item $pkg->flash_prefs_path()
Returns the file name of the Flash preferences XML file.
=cut
sub flash_prefs_path
{
return _get_path('pref');
}
=item $pkg->flash_config_path()
view release on metacpan or search on metacpan
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 release on metacpan or search on metacpan
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 release on metacpan or search on metacpan
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 release on metacpan or search on metacpan
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") {