as per "Contributing Notes" from honza..removing folding markers

snippets/perl-basic.snippets

@@ -30,9 +30,9 @@ snippet asub
 
 # Begin block
 snippet begin
-	BEGIN { #{{{
+	BEGIN {
 		${1:# begin body}
-	} #}}}
+	}
 
 # call package function with some parameter
 snippet pkgmv  
@@ -62,16 +62,16 @@ snippet qr/
 
 #given
 snippet given
-	given ($${1:var}) { #{{{
+	given ($${1:var}) { 
 		${2:# cases}
 		${3:# default}
-	} #}}}
+	} 
 
 # switch-like case
 snippet when
-	when (${1:case}) { #{{{
+	when (${1:case}) {
 		${2:# body}
-	} #}}}
+	}
 
 # hash slice
 snippet hslice

snippets/perl-moosesnippets.snippets

@@ -29,20 +29,20 @@ snippet moosecl
 
 # has
 snippet has
-	has ${1:attribute} => ( #{{{ 
+	has ${1:attribute} => (
 		is	=> '${2:ro|rw}',
 		isa 	=> '${3:Str|Int|HashRef|ArrayRef|etc}',
 		default => ${4:defaultvalue}
 		,${5:# other attributes}
-	); #}}}
+	);
 
 
 # override
 snippet override
-	override ${1:attribute} => sub { #{{{ 
+	override ${1:attribute} => sub {
 		${2:# my $self = shift;};
 		${3:# my ($self,$args) = @_;};
-	}; #}}}
+	};
 
 
 

snippets/perl-test.snippets

@@ -21,16 +21,16 @@ snippet trunner
 
 #testclass
 snippet tsub
-	sub t${1:number}_${2:test_case} :Test(${3:num_of_tests}) { #{{{
+	sub t${1:number}_${2:test_case} :Test(${3:num_of_tests}) {
 		my $self = shift;
 		${4:#  body}
 		
-		} #}}}
+	}
 
 
 #prep test method
 snippet tprep
-	sub prep${1:number}_${2:test_case} :Test(startup) { #{{{
+	sub prep${1:number}_${2:test_case} :Test(startup) {
 		my $self = shift;
 		${4:#  body}
-	} #}}}
+	}