diff --git a/PPIx-QuoteLike-0.022.tar.gz b/PPIx-QuoteLike-0.022.tar.gz
new file mode 100644
index 0000000..b9eb218
Binary files /dev/null and b/PPIx-QuoteLike-0.022.tar.gz differ
diff --git a/perl-PPIx-QuoteLike.spec b/perl-PPIx-QuoteLike.spec
new file mode 100644
index 0000000..1c0d9a2
--- /dev/null
+++ b/perl-PPIx-QuoteLike.spec
@@ -0,0 +1,105 @@
+%global _empty_manifest_terminate_build 0
+
+Name:           perl-PPIx-QuoteLike
+Version:        0.022
+Release:        1
+Summary:        Parse Perl string literals and string-literal-like things
+License:        GPL+ or Artistic
+URL:            https://metacpan.org/release/PPIx-QuoteLike
+Source0:        https://cpan.metacpan.org/authors/id/W/WY/WYANT/PPIx-QuoteLike-%{version}.tar.gz
+BuildArch:      noarch
+BuildRequires:  perl >= 0:5.006
+BuildRequires:  perl-generators
+BuildRequires:  perl(Carp)
+BuildRequires:  perl(constant)
+BuildRequires:  perl(Encode)
+BuildRequires:  perl(Exporter)
+BuildRequires:  perl(List::Util)
+BuildRequires:  perl(Module::Build)
+BuildRequires:  perl(PPI::Document) >= 1.238
+BuildRequires:  perl(PPI::Dumper) >= 1.238
+BuildRequires:  perl(re)
+BuildRequires:  perl(Readonly)
+BuildRequires:  perl(Scalar::Util)
+BuildRequires:  perl(strict)
+BuildRequires:  perl(Test::More) >= 0.88
+BuildRequires:  perl(warnings)
+Requires:       perl(Carp)
+Requires:       perl(constant)
+Requires:       perl(Encode)
+Requires:       perl(Exporter)
+Requires:       perl(List::Util)
+Requires:       perl(PPI::Document) >= 1.238
+Requires:       perl(PPI::Dumper) >= 1.238
+Requires:       perl(re)
+Requires:       perl(Readonly)
+Requires:       perl(Scalar::Util)
+Requires:       perl(strict)
+Requires:       perl(warnings)
+Requires:       perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
+
+%description
+This Perl class parses Perl string literals and things that are reasonably
+like string literals. Its real reason for being is to find interpolated
+variables for Perl::Critic policies and similar code.
+
+%package help
+Summary: Parse Perl string literals and string-literal-like things
+Provides: perl-PPIx-QuoteLike-doc
+
+%description help
+This Perl class parses Perl string literals and things that are reasonably
+like string literals. Its real reason for being is to find interpolated
+variables for Perl::Critic policies and similar code.
+
+%prep
+%setup -q -n PPIx-QuoteLike-%{version}
+
+%build
+export PERL_MM_OPT=""
+%{__perl} Build.PL --installdirs=vendor
+./Build
+
+%install
+export PERL_MM_OPT=""
+rm -rf $RPM_BUILD_ROOT
+ 
+./Build install --destdir=$RPM_BUILD_ROOT --create_packlist=0
+find $RPM_BUILD_ROOT -depth -type d -exec rmdir {} 2>/dev/null \;
+ 
+%{_fixperms} $RPM_BUILD_ROOT/*
+ 
+pushd %{buildroot}
+touch filelist.lst
+if [ -d usr/bin ];then
+    find usr/bin -type f -printf "/%h/%f\n" >> filelist.lst
+fi
+if [ -d usr/sbin ];then
+    find usr/bin -type f -printf "/%h/%f\n" >> filelist.lst
+fi
+if [ -d usr/lib64 ];then
+    find usr/lib64 -type f -printf "/%h/%f\n" >> filelist.lst
+fi
+if [ -d usr/lib ];then
+    find usr/lib -type f -printf "/%h/%f\n" >> filelist.lst
+fi
+popd
+mv %{buildroot}/filelist.lst .
+
+%check
+./Build test
+
+%clean
+rm -rf $RPM_BUILD_ROOT
+ 
+%files -f filelist.lst
+%defattr(-,root,root,-)
+%doc Changes CONTRIBUTING eg LICENSES META.json README xt
+%{perl_vendorlib}/*
+
+%files help
+%{_mandir}/*
+
+%changelog
+* Wed Jul 06 2022 misaka00251 <misaka00251@misakanet.cn> - 0.022-1
+- Init package