4 lines
98 B
Perl
4 lines
98 B
Perl
use Regexp::Common 'RE_balanced';
|
|
sub balanced {
|
|
return shift =~ RE_balanced(-parens=>'[]')
|
|
}
|