Yet Another CPAN Grep

Wrangler ( C/CL/CLIPLAND/Wrangler-2.15.tar.gz, CLIPLAND, 2015; MetaCPAN )

Wrangler/lib/Wrangler/Changes.pm ( view source; MetaCPAN )

0	2013-07-01 (unreleased)
	- start of new major version, branch/rewrite
 	- switch from YAML to JSON for settings
	- new XDG config file location
	- removed sidecar-file handling for now
	- many

Wrangler ( C/CL/CLIPLAND/Wrangler-2.15.tar.gz, CLIPLAND, 2015; MetaCPAN )

Wrangler/lib/Wrangler/Wx/Dialog/Settings.pm ( view source; MetaCPAN )

EM_SELECTED EVT_LIST_ITEM_RIGHT_CLICK EVT_MENU EVT_LIST_BEGIN_DRAG);
use base 'Wx::Notebook';
use JSON::XS ();
use Path::Tiny;

sub new {
	my $class = shift;
	my $parent = shift;

	my $self = $class->

howModal == wxID_CANCEL;

	my $path = $file_dialog->GetPath;
	$file_dialog->Destroy;

	my $json = eval { JSON::XS->new->utf8->pretty->encode( { $column_layout => $settings->{wrangler}->config()->{'ui.

tings::FileBrowser::SaveColumnLayout: error encoding fields: $@") if $@;

	path($path)->spew_raw($json) or Wrangler::debug("Settings::FileBrowser::SaveColumnLayout: error writing column file: $path: $

Wrangler ( C/CL/CLIPLAND/Wrangler-2.15.tar.gz, CLIPLAND, 2015; MetaCPAN )

Wrangler/lib/Wrangler/Wx/FormEditor.pm ( view source; MetaCPAN )

Wx::Event qw(EVT_BUTTON EVT_TEXT EVT_CHAR EVT_RIGHT_UP EVT_MENU EVT_COMBOBOX EVT_TEXT_ENTER);
use JSON::XS ();
use Path::Tiny;

sub new {
	my $class  = shift;
	my $parent = shift;
	my $self = $class->

howModal == wxID_CANCEL;

	my $path = $file_dialog->GetPath;
	$file_dialog->Destroy;

	my $json = eval { JSON::XS->new->utf8->pretty->encode( { $editor_name => $editor->{editors}->{ $editor_name } } )

ler::Wx::FormEditor::SaveFieldLayout: error encoding fields: $@") if $@;

	path($path)->spew_raw($json) or Wrangler::debug("Wrangler::Wx::FormEditor::SaveFieldLayout: error writing layout file: $path:

Wrangler ( C/CL/CLIPLAND/Wrangler-2.15.tar.gz, CLIPLAND, 2015; MetaCPAN )

Wrangler/lib/Wrangler/FileSystem/Layers.pm ( view source; MetaCPAN )

lication/json'],	# exported/imported by Settings::Filebrowser, is application/json
	wfl	=> ['Wrangler Field Layout', 'application/json'],	# exported/imported by FormEditor, is application/json
	wma	=>

Wrangler ( C/CL/CLIPLAND/Wrangler-2.15.tar.gz, CLIPLAND, 2015; MetaCPAN )

Wrangler/lib/Wrangler/Config.pm ( view source; MetaCPAN )

package Wrangler::Config;

use strict;
use warnings;

use Cwd;
use JSON::XS ();
use File::HomeDir;
use Data::Dumper ();
use Digest::MD5 ();
use Path::Tiny;

# Wx::PlatformInfo; # check for unicode bui

 '.wrangler.json' ){
		Wrangler::debug('Wrangler::Config::read: Planning to read settings file from working-dir: .wrangler.yaml');
		$path = Cwd::cwd . $env{PathSeparator} . '.wrangler.json';
		$env{'

';
	}

	unless($path){
		$path = $env{UserConfigDir};
		$path .= $env{PathSeparator} . '.wrangler.json' if $path;
		if($path){
			$env{'config.file.location'} = 'home-dir';
			Wrangler::debug('Wrangle