CPAN::Groonga

			    'warnings' => 0,
			    'FileHandle' => '2.02',
			    'File::Basename' => '2.84',
			    'JSON' => '2.94',
			    'Cwd' => '3.39_02',
			    'Data::Structure::Util' => '0.16'
			   },
	      (

0.001001';

use strict;
use warnings;

use utf8;
use Cwd;
use FileHandle;
use File::Basename;
use JSON -convert_blessed_universally;
use Data::Structure::Util qw(unbless);
use open ':encoding(utf8)';

my $json_string;
  unbless $self;
  delete $self->{'project'}; # delete the project from origin data
  $json_string = to_json($self,{allow_blessed=>1,convert_blessed=>1}); # convert object  to json
  

open(my $fh, '>', "$dst_dir/project_mutable.json");
  print $fh $json_string;
  close $fh;

  unlink "$dst_dir/project.pbxproj"; # remvoe the origin project.pbxproj file
  # file handle
  system("/usr